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Vorwort 


Als Fortsetzung zum Flasch i nensprachebuch enthält dieses 
Buch speziell für das Colour-Genie alle wichtigen 
Haschinenroutinen zur Programmierung der Grafik, der 
Tonausgabe und der Diskettenstation. Dadurch wird es dem 
Haschinenprogrammierer zum ersten Hai möglich alle 
Eigenschaften des Colour-Genies in eigenen Programmen voll 
auszunutzen. 


Alle Routinen werden mit j euei1s einem Bei spiel erläutert. 
In jedem Abschnitt folgen größere Beispie1Programme 
Cinsgesamt 10), die im Zusammenhang die sinnvolle Anwendung 
der beschriebenen ROH-Routinen zeigen. I 


Außerdem enthä1t dieses Buch die QuellProgramme von 
zahlreichen Utilities, die als RELOSOFT seit Jahren 
verkauft werden. An diesen Programmen werden die 
HÖg1ichkeiten des Eingriffes in Betriebssystem und 
Basicinterpreter genau er1äutert. ; 


Aachen, im Februar 1985 


Luidger Röckrath 
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Teil 1: ROM-Routinen und ihre Anuendung 


*********************************************************** 

* * 


* NAME : Beschreibung 

* 


* 

* 

* 

* 

* 


E : Einsprung 
R : Registerbeeinflussung 
1 : Aufrufparameter 

0 : Ergebnisparameter 

************************************************** 


** 


Alle fo1genden Beschreibungen der ROH-Routinen fangen mit 
einem derartigen Block an: 


NAME : Der Harne der Routine, der aus max. 6 Buchstaben und 
Ziffern besteht. Dahinter kurz zusammengefasst eine 
Beschreibung der Funktion. 


E : Die Einsprungadresse CADRESS) 
Die Routine kann entweder mit 

NAHE EQU ADRESS 

CALL HAUE 

oder 

CALL ADRESS 

aufgerufen werden. 


R : Registerbeeinflussung. 

Hier sind alle Register verzeichnet, die durch die Routine 
verändert uerden können. Himmt ein speziel1es Register 
immer einen speziellen Uert an, uenn die Routine 
durchlaufen wird, ist dieser angegeben. 


I : Aufrufparameter 

Hier ist aufgelistet, in uelchen Registern bzw. 
Speicherze11en, uelche Parameter für die Routine übergeben 
uerden müssen. 


0 : Ergebnisparameter 

In den angegebenen Registern und Speicherzellen uerden die 
Ergebnisse der Routine dem Aufrufer zurückgegeben. 
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Kapitel 1 : Die Bildschirmausgabe 1 

= = = = = = = = = = ^ = s ’i 


1.1.1 Die Textmodus 


Im Textmodus können auf dem Colour-Genie 1000 Seichen in 25 
Zeilen zu je 40 Zeichen dargestellt werden. Die Zeichen 
können souoh1 dem festprogrammierten Seichengenerator 
entnommen werden„ als auch z. T. frei programmiert werden. 

Der Bi1dwiederho1speieher des Co1our-Genies im Textmodus 
belegt den Speicherbereich von 4400H-47E7H. Die erste Zeile 
belegt den Bereich von 4400H-4427H, die zweite den Bereich 
von 4428H-444FH, usw. In einer Zeile ist das ganz links 
dargestellte Seichen der niedrigsten Adresse zuzuordnen. 

In jede Speicherzelle kann ein Wert zwischen 0 und 255 <0 - 
FFH) geschrieben werden. Durch die Uideoscha1tung wird auf 
der zugehörigen Bildposition das entsprechende Zeichen 
dargeste11t. Den Werten 0 - 127 entsprechen immer ganz 
bestimmte Zeichen. Den Werten von 128 - 255 können entweder 
festprogrammierte Grafikzeichen als auch freiprogrammierte 
Seichen zugeordnet werden. Diese Zuordnung wird durch den 
CHAR—Befehl festgelegt: 


Code 


CHAR 0 CHAR 1 CHAR 2 CHAR 3 


0-127 (00H-7FH) festprogrammierte ASCII-Zeichen 

128-192 C80H-BFH) frei PR1 frei PR1 fest GR 1 fest GR 1 

193-255 CC0H-FFH) frei PR2 fest GR2 frei PR2 fest GR2 

I 

Die freiprogrammierbaren Zeichen der Gruppe 1 liegen im 
Bereich von F400H-F5FFH, die Gruppe 2 im Bereich von 
F600H-F7FFH. Jedes freiprogrammierbare Zeichen belegt 8 
Bytes im Speicher zur Definition des Zeichens. Jedes Byte 


vereinigt die Bild 
die oberste Bi1dzei 


F400H 


Code 

80H 

1 . 

F401H 


Code 

80 H 

2 . 

F402H 


Code 

80 H 

3. 

F403H 


Code 

80H 

4. 

F404H 


Code 

80H 

5. 

F405H 


Code 

80H 

6 . 

F406H 


Code 

80H 

7 . 

F407H 


Code 

80H 

8. 

F408H 


Code 

8 1 H 

1 . 

F409H 


Code 

81 H 

2. 

F40AH 


Code 

8 1H 

3. 

F40BH 


Code 

8 1 H 

4. 

F40CH 


Code 

81H 

5. 

F40DH 


Code 

81H 

6 . 

F40EH 


Code 

81 H 

7. 

F40FH 


Code 

81 H 

8. 

« ♦ * 

F600H 

; 

Code 

C0H 

1 . 


unkte von einer Zei 
e abgespeichert. 

Zeile 
Zei 1 e 
Zei le 
Ze i 1 e 
Ze i 1 e 
Ze i 1 e 
Zei 1 e 
Zei le 
Ze i 1 e 
Ze i 1 e 
Ze i 1 e 
Ze i 1 e 
Ze i 1 e 
Ze i 1 e 
Ze i 1 e 
Zeile 

Ze i 1 e 


e. Als erstes wird 
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F7FFH : Code FFH 8. Zeile j 

! 

I 

Beispie1: 

F400H : 81 42 24 18 18 24 42 81H 
Jetzt ergibt ? CHR$C128) ein großes X. 

Die Farben der einzelnen Zeichen sind durch den 
Farbspeicher definiert, der bei F000H beginnt. Für jedes 
Zeichen auf dem Bildschirm ist ein Byte reserviert. Von 
diesen 1024 Bytes sind allerdings nur die unteren 4 Bits 
verdrahtet, da nur 16 Farben möglich sind. In den 
Farbspeicher müssen folgende Uerte eingeschrieben werden um 
eine bestimmte Farbe zu erzielen: | 


Farbe 

Farbcode 

Argument 


im Farbspeicher 

für 

COLOUR 

Grau 

00H 

= 

0 

10 

t 

Cyan 

0 1 H 


1 

7 

Rot 

02H 

= 

2 

3 


Ue i ß 

03H 

— 

3 

l 

t 

Gelb 

04H 

= 

4 

4 

j 

Grün 

05H 

= 

5 

2 

i 

Orange 

06H 

= 

6 

5 


He1lgelb 

07H 


7 

11 


Bl au 

08H 


8 

6 


Hellblau 

09H 

= 

9 

9 

| 

Rotviolett 

0AH 


10 

15 

i 

Blauviolett 

0BH 

— 

1 1 

12 

I 

Hellgrau 

0CH 

= 

12 

13 

i 

j 

Türkis 

0DH 

= 

13 

14 

i 

t 

flagenta 

0EH 

— 

14 

8 

i 

He11weiß 

0FH 


15 

16 

i 


Die Argumente der COLOUR-Anueisung geben nicht direkt den 
Farbcode für den Farbspeicher an, sondern werden über eine 
Tabelle zunächst umcodiert. Diese TabeIle beginnt auf der 


Adresse 4390H und ist folgendermaßen aufgebaut: 


4390H 


03H 


COLOUR 

1 

= 

Ueiß 

4391H 


05H 


COLOUR 

2 


Grün 

4392H 


02H 


COLOUR 

3 


Rot 

4393H 


04H 


COLOUR 

4 


Gelb 

4394H 


06H 


COLOUR 

5 

= 

Orange 

4395H 


08H 


COLOUR 

6 

= 

B1 au 

4396H 


0 1H 


COLOUR 

7 

— 

Cyan 

4397H 


0EH 


COLOUR 

8 


Magenta 

4398H 


09H 


COLOUR 

9 

= 

Hellblau 

4399H 


10H 


COLOUR 

10 


Grau 

439AH 


07H 


COLOUR 

1 1 

= 

He 11gelb 

439BH 


0BH 


COLOUR 

12 

= 

B1 auvio1ett 

439CH 


0CH 


COLOUR 

13 

= 

He11grau 

439DH 


0DH 


COLOUR 

14 

= 

Türkis 

439EH 


0AH 


COLOUR 

15 

= 

Rotviolett 

439FH 


0FH 


COLOUR 

16 

= 

He11weiß 







1,1.1 Bildschirmausgabe: Der Textmodus 


Seite 8 


Folgendes Programmbeispiel zeigt eine sinnvolle Anwendung 
der freiprogrammierbaren Zeichen. Es ermöglicht die Eingabe 
der Umlaute und des scharfen s mittels <CTRL> und A, 0, U, 
a, o, u, S und s. Die CTRL-Taste muß losgelassen werden, 
bevor die Buchstabentaste wird. Bei vielen Co1our-Genies 
sind im Zeichengenerator auf den Codes 1-3 und 5-8 die 
deutschen Sonderzeichen enthalten. Das Programm SEDIT 
spricht unter diesen Codes die Umlaute an Cs. 2.1> 


i 

t 


160 

* ********************************************* 

i 

y 

\ 

110 

; * 

* 


120 

;* BEISPIEL 

* ' 

i 

i 

* 

130 

; * 

* 

\ 

140 

;* UMLAUTEEIHGABE/AUSGABE * * 

i 

( 

L 

|- 

150 

; * 

* 

160 

;* CC> 1985 LUIDGER RÖCKRATH * 

\ 

l 

i 

i 

170 

; * 

* 

180 

;********************************************* 

190 

> 


i 

200 

; BASIC-ZEIGER : 



210 

220 

KEYVEC EQU 4016H ; KEYBOARD-TREIBER-VEKTOR 


230 

240 

ORG 0BF00H ; 

STARTEN MIT /TM NICHT ] 

MOEGL. 

250 

) 



260 

; INITIALISIERUNG: 


270 

280 

t 

INIT LD HL,CKEYVEC ) ; 

ALTEN KEYBOARDVEKTOR UMSP. 

290 

300 

LD C NEUKEY + 1 ) , HL 
LD HL , NEUKEY ; 

NEUEN DEFINIEREN 

4 

310 

LD C KEYVEC >, HL 


i 

320 

JP 1A19H 


Ir 

1 

330 

* 


r 

340 

* 

I 


| 

350 

; HAUPTPROGRAMM 


6 

360 

NEUKEY CALL 0 ; 

ALTE KEYBOARDROUTINE AUFRUFEN 

370 

380 

r 

AND A ; 

KEIN ZEICHEN GEDRUECKT 


390 

RET Z ; 

JA, —> 


400 

CP * 0 * 


t 

410 

JR Z,CTRL 


1 

* 

f 

420 

CP * A * ; 

< 1 A ’ 

f 

I 

430 

RET C 

JA, —> 

E 

t 

440 

CP ’Z'+l 

<= ’Z* 

t 

450 

JR C,LETTER 

A 

1 

1 

*4 

Kt 

t 

- * 

460 

CP 60H 

< SHIFT § 

Ü 

f 

470 

RET C 

JA, —> 

r 

480 

CP ’z’+l 

<= KLEIN ’Z» 

t 

490 

JR C,LETTER 

JA, —> 


500 

RET 

• 

< 

510 

* 

* 


r 

j 

520 

LETTER LD HL,SL 

ZEICHEN MIT SHIFT LOCK 


530 

KOR CHL) 

VERKNUEPFEN 

T 

540 

CTRL LD HL,4018H 

CTRL 

E . 

s 

550 

BIT 7,CHL) 


1 

} 

560 

RES 7,CHL) 

CTRL-BIT LOESCHEN 

f 

[ 

570 

RET Z 

NEIN, —> 

i 

i 

f 

i 

i 

580 

CP '0 * 

* 0 ' 

590 

JR NZ , CONVER 

NEIN, UMCONVERTIERUNG 
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660 ; 


610 

LD A y (SL) ; 

SHIFT LOCK 

INUERTI 

620 

XOR 20H 



636 

LD CSL),A 



646 

XOR A ; 

ZEICHEN LOESCHEN 

650 

RET 



660 ; 




670 CONVER 

LD HL,CTAB1 

ZEIGER AUF 

URCODES 

680 

LD BC,TABLEN 

TABELLELAENGE 

696 

PUSH BC 

RETTEN 


700 

CPIR 

IN TABELLE 

SUCHEN 

710 

POP BC 

ZURUECK 


720 

RET NZ 

NICHT GEFUNDEN —> 

730 

ADD HL,BC 

ADRESSE IN 

ZIELTAB 

740 

DEC HL 

ERRECHNEN 


750 

LD A,(HL) ; 

ZIELZEICHEN 

LADEN 

766 

RET 



776 ; 




780 

* 

* 



790 CTAB1 

DEFtl 7 AOUSaous ' 



800 CTAB3 

DEFB 80H 

CODES FUER 

AE 

810 

DEFB 81H 


OE 

820 

DEFB 82H 


UE 

830 

DEFB 86H ; 


SS 

840 

DEFB 83H 

KLEIN 

AE 

850 

DEFB 84H 

KLEIN 

OE 

860 

DEFB 85H 

KLEIN 

UE 

870 

DEFB 86H 

KLEIN 

SS 

880 ; 




890 TABLEN 

EQU 8 

CTAB2-CTAB1 

900 ; 




910 SL 

DEFB 20H 



920 ; 




930 ; DEFINTION DER ZEICHEN 



940 ; 




950 

ORG 0F400H 



960 

DEFB 44H 

; AE 


970 

DEFB 10H 



980 

DEFB 28H 



990 

DEFB 44H 



1000 

DEFB 7CH 



1010 

DEFB 44H 



1020 

DEFB 44H 



1030 

DEFB 00H 



10 40 

DEFB 44H 

; OE 


1050 

DEFB 38H 



1060 

DEFB 44H 



1070 

DEFB 44H 



1080 

DEFB 44H 



1090 

DEFB 44H 



1 100 

DEFB 38H 



1 1 10 

DEFB 00H 



1 120 

DEFB 44H 

; UE 


1130 

DEFB 00H 



1140 

DEFB 44H 



1150 

DEFB 44H 



1160 

DEFB 44H 



1 170 

DEFB 44H 



1 180 

DEFB 38H 



1 190 

DEFB 00H 
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1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


200 

DEFB 

28H 

210 

DEFB 

00H 

220 

DEFB 

38H 

230 

DEFB 

04H 

240 

DEFB 

3CH 

250 

DEFB 

44H 

260 

DEFB 

3AH 

270 

DEFB 

00H 

280 

DEFB 

00H 

290 

DEFB 

28H 

300 

DEFB 

00H 

310 

DEFB 

38H 

320 

DEFB 

44H 

330 

DEFB 

44H 

340 

DEFB 

38H 

350 

DEFB 

00H 

360 

DEFB 

00H 

370 

DEFB 

28H 

380 

DEFB 

00H 

390 

DEFB 

44H 

400 

DEFB 

44H 

410 

DEFB 

4CH 

420 

DEFB 

34H 

430 

DEFB 

00H 

440 

DEFB 

38H 

450 

DEFB 

44H 

460 

DEFB 

44H 

470 

DEFB 

58H 

480 

DEFB 

44H 

490 

DEFB 

44H 

500 

DEFB 

58H 

510 

DEFB 

40H 

520 

END ] 

[NIT 


AE 


OE 


UE 


SS 
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1.1.2 Die hochauflösende Grafik 


Die hochauflösende Grafik des Colour-Genie verfügt, über 160 
* 102 Punkte. Das Bild wird im Speicherbereich von 4800H 
bis 57EFH abge1egt und ist folgendermaßen aufgebaut. Jeder 
Bildpunkt belegt 2 Bits. Diese 2 Bits können 4 verschiedene 
Uerte annehmen» die die Farben repräsentieren: 


Farbe 

b n +1 

b n 




schwarz 

0 

0 




blau 

0 

1 




rot 

1 

0 




grün 

1 

1 



■ 

Die 2 

Bits von 

je 4 

Bi1dpunkten 

sind 

zu einem Byte 

zusammengef aßt, 

und 

zwar jeweils 

4 

in x-Richtung 


aufeinanderfo1gende Bi1dpunkte. Der Punkt 1inks be1egt die 
beiden höchstwertigen Bits, der Bildpunkt rechts die beiden 
niederwertigen. Die Punkte einer Zeile sind von links nach 
rechts in aufeinanderfolgenden Speicherzellen abgelegt. 
Jede Bildzeile belegt 40 (-28H) Bytes C160 / 4 - 40). Die 
102 Bildzeile sind hi ntereinander im Speieher abgelegt, 
beginnend mit der Zeile mit der y-Koordinate 0: 


0,0 ' 1,0 ! 2,0 ! 3,0 

+ ___4___+___ + — + —+—+—+---+ 

4800:!b7 !b6 !b5 !b4 (b3 «b2 !b! !b0 ! 
+—+—+—+—+—4—+—+—+ 

0,1 ! 1,1 ! 2,1 ! 3,1 

—4—4—4—4—4—4 

4828:!b7 l b6 !b5 !b4 !b3 (b2 !bl !bö ! 

+—+—+—+—+—4—4—+—-+ 

0,2 ! 1,2 * 2,2 ! 3,2 

+-+-4-4-+ +-4-4-4 

4850:!b7 !b6 !b5 !b4 !b3 !b2 !bl 'b0 ! 


4,0 ! 5,0 ! 6,0 1 7,0 ! 

+ 4-4—4—4-4-4-4 4 

4801:!b? !b6 !b5 !b4 !b3 !b2 !bl !b0 ! 

+-+- 4 - + -+- 4 -4-+- 4 

4.1 1 5,1 ' 6,1 ' 7,1 

4-4-4-4-4-4-4-4-4 

4829:!b7 !b6 !b5 !b4 !b3 !b2 !bl !b0 ! 

4—4-4—4—4—4- + -4—4 

4.2 ! 5,2 ! 6,2 ' 7,2 ! 

4-4-4-4-4-4 — 4-4 — 4 

4851: !b7 !b6 !b5 !b4 lb3 'b2 'bl !bÖ ! 


4 4 4 4-4-4—4—4— 

* 

0,99 ! 1,99 ! 2,99 ! 3,99 

4-4 — 4 4-4-4—4-4—4 

5778:!b7 !b6 !b5 !b4 !b3 !b2 (bl !bÖ 1 

4 -4-4-4- + - + - + - + -4 

0,100! 1,100! 2,100' 3,100 

4-4- + -+-+-4- + -4— 

57A0:!b7 !b6 !b5 !b4 !b3 !b2 !bl !bö 

4-4 —4 —4 —4—4-4-4— 


4 4—4—4-4-4—4-4—4-4 

J 

* 

4,99 ! 5,99 ! 6,99 ! 7,99 ! 

4-4-4-4-4-4—4—4—4 

779:!b7 !b6 !b5 !b4 !b3 !b2 !bl !b0 ' 

4—4-4—4—4-4-4-4—-4 

4,100! 5,100' 6,100! 7,100' 

4___+— + ___+___4-4—4-4—4 

( 57At:!b7 !b6 !b5 !b4 !b3 !b2 'bl !b0 1 

-4—-4—4—4-4-4-4—4 

4,101! 5,101! 6,101! 7,101! 

-4-4-4- —4-4-4-4-4 


156,0 !157,0 !158,0 (159,0 

4—4-4-4—4—4-4-4-4 

..4027:!b7 !b6 !b5 !b4 !b3 !b2 !bl !b0 ! 

4-4-4-4-4-4-4-4—4 

156.1 !157,1 (158,1 ‘159,1 

4-4-+-4-f-+-4-4 — 4 

..4B4F; !b7 !b6 !b5 !b4 'b3 'b2 !bl !b(' ! 

4 _._ 4_._4 -4- + -4- + -4—4 

156.2 (157,2 (158,2 !159,2 

4 — 4 — 4-4—4-4—4—4 —4 

..4877:!b7 !b6 !b5 !b4 !b3 f b2 «bi !b0 ' 

4-4-+—4—4-4—4—4- + 


156,99 !157,99 !158,99 (159,99 

4-4-4-4-4-4—4 —-4—-4 

..579F:!b? !b6 (b5 !b4 !b3 !b2 !bl 'bO ' 

4-4-4-4-4-4—-4-4-+ 

156,100!157,100!158,100!159,100 

4- + - + - + -4-4-4-4-4 

,.57C7:'b7 !b& !b5 l b4 l b3 !b2 !bl 'b0 ' 

t—4—4—4—4—4—4—4—4 

156,101!157,10i'15B,101(159,101 

4-4-+-4-4-4-4-4-4 

..57EF:!b7 'b6 !b5 !b4 !b3 !b2 'bl !b0 ' 

4-4-4___4-4___4-4-+ 4 


0,101' 1,101! 2,101! 3,101 

4-4-4- + - + - + - + -4 — 4 

57C8:!b7 !b6 !b5 !b4 !b3 !b2 !bl !b0 ' 57C9:(b7 (b6 !b5 !b4 !b3 !b2 !bl !bö ! 

+-+-+-4-4-4-4-4-4 4-4-4-4-4-4-4—4-4 
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Viele ROM-Routinen können zur Erstellung von Grafiken, 
genutzt werden, die in ihrer Funktion, den Basicanueisungen 
gleichen Namens entsprechen: 

I 

I 

’ \ 

i 

*********************************************************** 

* i * 

* FGR : hochauflösende Grafik einschalten ] * 

* * 

* E : 38A9H ! * 

* R : AF, BC * 

* I : / 1 * 

* 0 : / * 

* * 

*********************************************************** 

i 

I 

Funktion: - " * •.„*■.**.**. ..- 

Die hochauflösende Grafik wird eingeschaltet, dazu wird das 
Bit 5 von Port FFH gesetzt und der CRTC speziell 
initialisiert. 

Beispiel: 


CALL FGR 


*********************************************************** 
* * 

* LGR : hochauf1ösende Grafik ausschalten , ♦ 

* * 

* E : 38B0H * 

* R : AF, BC * 

* I : / * 

* 0 : / * 

* * 

*********************************************************** 

Funktion: ! 


Die hochauf1ösende Grafik wird ausgescha1tet 
Bit 5 von Port FFH zurückgesetzt und der 
i n ' 


dazu uird das 
CRTC spezie11 


i 

Beispie1: 


CALL 


LGR 
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* BGRD 


Hintergrund einschalten 

38B7H 
AF, B 
/ 

/ 


Funktion: I 

Der Hintergrund Cschuarz durch Magenta ersetzt) wird 
e 1 ngescha1 tet, dazu uird das Bit 2 von Port FFH gesetzt, 

Beispiel: 


CALL 


FGR 


* 

* NBGRD : Hintergrund ausschalten 

* 

* E : 38BBH 

* R : AF , B 

* I : / 

* 0 : / 

* 





Funktion: I 

"I ■ 

i 

Der Hintergrund Cschuarz durch Magenta ersetzt) uird 
ausgeschaltet, dazu uird das Bit 2 von Port FFH 
zurückgesetzt. 

i 

Beispiel: E 

I 

CALL NBGRD *- - - I 


[*********************** 


* | * 

* FCLS : Bildschirm mit Farbe füllen * 

* * * 

* E : 384DH * 

* R : AF, BC, DE * 

* I : A = Farbcode (0 = sch, 1 = bl, 2 = rot, 3 = gr)* 

* 0 : / I * 

t * 


*********************************************************** 

Funktion: 

Der gesamte HGR-Bi1dschirm uird mit der angegebenen Farbe 
gefüllt. Dazu uird der Speicherbereich von 4800 bis 57FF 
C!) mit 00H C schuarz), 55H (blau), AAH Crot) oder FFH 
Cgrün) gefüllt. 


i 

































f 
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Beispie1: 


LD 

CALL 


A, 3 
FCLS 


; Bildschirm grün 


* * 

* FCOLOU : Sehreibfarbe fest. 1 egen * 

-* * 


* 

* 

* 

* 

* 


E 

R 

1 

G 


38DAH * 
AF * 
A = Farbcode (0 - sch» 1 = bl, 2 ~ rot.» 3 = gr>* 
/ * 

* 


*********************************************************** 

Funktion: 

Hit diesem Unterprogramm wird die Sehreibfarbe für alle 
folgenden Operationen in der Grafik festgelegt. Nach 
Überprüfung auf Bereichsüberschreitung, die einen FC-Fehler 
hevorruft, uird die Schreibfarbe in C4313H) abgelegt. 


i * * I'J v .1 


Beispiel: 


LD 

CALL 


A»1 

FCOLOU 


; Farbcode für blau 
; Schreibfarbe fest1egen 


*********************************************************** 


* CIRCLE 

* 

* E 

* R 

* I 

* 

* 

* 0 

* 


Kreis zeichnen 
3B09H 

AF» BC, DE 

B = x-Koordinate des Mittelpunktes 
D = y—Koordinate des Mittelpunktes 
A = Radius 
/ 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


*********************************************************** 
Funktion: 

entspricht Basic: CIRCLE B » D,A. 

Beispie1: 


LD 

B »80 

; x 

= 80 

LD 

D, 50 

; Y 

= 50 

LD 

A» 30 

; R 

= 30 

CALL 

CIRCLE 

; CI 

RCLE 


I 
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*********************************************************** 
* 

* PAINT : Fläche mit Farbe füllen 


E : 3E78H 
R : AF, BC, DE 
I : E - x-Koordinate 
D - y-Koordinate 

(431DH) = Anzahl der Begrenzungsfarben + 1 
C4319H) = Füllfarbe 
(431AH > = Begrenzungsfarbe 1 
(431BH) - Begrenzungsfarbe 2 


Funktion: 

entspricht BASIC: PAINT E, D, (4319H)+l,(431AH)+l,(431BH> + 1 
Es können keine, eine oder zuei Begrenzungsfarben angegeben 
uerden. (431DH) muß dann die Uerte 1, 2 oder 3 enthalten. 


Beispiel: 


LD 

E, 80 

4 

> 

x-Koordinate 

LD 

D, 50 

4 

* 

y-Koordinate 

LD 

A,2 

I 

1 Begrenzungsfarbe 

LD 

(431DH),A 



LD 

A,1 

f 

Fül1färbe — blau 

LD 

C4319H),A 



LD 

A>2 

* 

* 

Begrenzungsfarbe = 

LD 

<431 AH) , A 



CALL 

PAINT 

* 

PAINT D,E,2,3 


*********************************************************** 
* 

Line von (D,E) nach (H,L) ziehen 


* DETOHL 

* 


E 

R 

I 


3C1FH 

AF, BC, DE, HL, BC *, DE f , HL * 
D - x—Koordinate 1 
E * y-Koordinate 1 
H = x-Koordinate 2 
L « y-Koordinate 2 


* 

* 

**’ '■ I : D - x-Koordinate 1 . 

* 

* 

* 

* 0 : / 

* 

********************************************************** 
Funktion: 

Von dem Punkt mit den Koordinaten CD,E) uird eine Linie zu 
dem Punkt mit den Koordinaten (H,L> gezogen. Die Farbe muß 
zuvor mit FCOLOU definiert uerden. 


Beispiel: 


LD 

LD 

LD 


D, 1 

E, 1 
H, 158 


; xl 

; yi 

; x2 


1 

1 

158 
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LD L,100 

CALL DETOHL 


y2 = 100 

Linie ( D , E ) nach ( H » L ) 


*********************************************************** 

* 

* PLOTHL : Punkt setzen 

* 

* E : 3B8AH 

* R : AF, BC, DE, HL 

* I : L = x-Koordinate 

* H - y-Koordinate 

* 0 : / 

* 

********************************************************** 


Funktion: 

' Y* ^ # n T ■** 'l - '♦ hJ *■ *‘|>W t 1 ** 1 


Der Punkt mit den Koordinaten (D,E) wird mit der Farbe, die 
zuvor durch FCOLOU definiert wurde, gesetzt. Durch 
Einsprung bei PLOTHL + 3 kann der Farbcode in A übergeben 
werden. 


Beispie1: 

x = 80 
y = 50 

Punkt <L,H) setzen 


LU 

LD 

CALL 


L. , öü 

H , 50 
PLOTHL 


*********************************************************** 

* * 


* 

CPOXNT : 

Punkt abfragen 


* 

* 




* 

* 

E : 

3F3AH 


4t 

* 

R : 

AF, BC, DE, HL 


■ ■ **■* 

* 

I : 

L = x—Koordinate 


* 

* 


H = y-Koordinate 


* 

* 

0 : 

A - Farbcode des Punktes 


* 


* * 

*********************************************************** 


Funktion: 

Die Farbe des Punktes mit den Koordinaten CL,H) wird 
abgefragt und im Akku zurückgegeben. 

Beispiel: 


LD 

L, 80 

; x = 80 

LD 

H , 50 

; y = 50 

CALL 

CPOINT 

; Punkt abfragen 

CP 

1 

; Farbe blau ? 

JR 

Z,BLAU 

; ja, — > 


1 U 
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Die ersten beiden Beispiele zeigen wie Bilder in der 
hochauf1ösenden Grafik von Naschinenprogrammen aufbebaut 


werden können. Beispiel 1 malt konzentrische Kreise 
wechselnden Farben und demonstriert insbesondere 
Anwendung der Unterprogramme CIRCLE und PAINT. 




100 ;**♦****♦♦**♦*;♦:♦***♦***♦:*******:(;***♦****♦♦**** 

110;* * 

120 ;* BEISPIEL * 

130 ;* * 

140 ;* KONZENTRISCHE KREIS IN FGR * 

150;* * 

160 ;* (C) 1985 LUIDGER RÖCKRATH * 

170 ;* * 

180 ;********************************************* 
190 ; 


200 

FCOLOU 

EQU 

38DAH 

* 

SCHREIBFARBE UAEHLEN 

210 

FCLS 

EQU 

384DH 

t 

BILDSCHIRtl LOESCHEN 

220 

FGR 

EQU 

38A9H 

1 

FGR ANUAEHLEN 

230 

LGR 

EQU 

38B0H 

I 

LGR ANUAEHLEN 

240 

BGRD 

EQU 

38B7H 

1 

BACKGROUND EIN 

250 

NBGRD 

EQU -- 

38BBH 

t 

BACKGROUND AUS 

260 

CIRCLE 

EQU 

3B09H 

$ 

KREIS ZEICHNEN 

270 

PAINT 

EQU 

3E78H 

t 

FLAECHE AUSFUELLEN 

280 

f 





290 

ANZPNT 

EQU 

431 DH 

t 

ANZAHL DER ARG. FUER 

300 

FUELLF 

EQU 

4319H 

> 

FUELLFARBE 

310 

BEGRF1 

EQU 

431 AH 


BEGRENZUNGSFARBE 

320 

BEGRF2 

EQU 

431 BH 

» 

BEGRENZUNGSFARBE 

330 

f 





340 

; PROGRANNSTART 




350 

) 





360 


ORG 

7000H 



370 

START 

CALL 

FGR 

T 

GRAFIK EIN 

380 


LD 

A ,0 

f 

FCLS 

390 


CALL 

FCLS 



400 


LD 

A, 1 

t 

FCOLOUR 1 

410 


CALL 

FCOLOU 



420 


LD 

C, 8 

T 

RADIUS 

430 

LOOP 

LD 

A,C , 

* 

FCOLOUR RADIUS / 8 

440 


RRCA 




450 


RRCA 




460 


RRCA 




470 


AND 

3 



480 


JR 

NZ »LI 

* 

1 

KEIN SCHUARZ, —> 

490 


INC 

A 

1 

SCHWARZ —> BLAU 

500 

LI 

CALL 

FCOLOU 



510 


LD 

B , 80 

V 

X = 80 

520 


LD 

D,51 

* 

Y - 51 

530 


LD 

A , C 

1 

RADIUS -> A 

540 


PUSH 

BC 

1 

RADIUS RETTEN 

550 


AND 

A 



560 


CALL 

CIRCLE 

1 

CIRCLE 80,51,B 

570 


POP 

BC 



580 


LD 

D, 51 

* 

Y=51 

590 


LD 

A,C 

I 

X=80 + RADIUS—4 

600 


ADD 

A ,80-4 



610 


LD 

E, A 



620 


LD 

A , 3 

* 

ANZAHL DER ARG FUER 

630 


LD 

C ANZPNT) 

> 

A 


7* 


‘J ht * * V“* * 


0 . 3 
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640 

LD 

A,C ; FARBE = RADIUS / 8 

650 

RRCA 


660 

RRCA 


670 

RRCA 


680 

AND 

3 

690 

LD 

(FUELLF 5,A ; FUELLFARBE 

700 

LD 

CBEGRF1)„A ; BEGRENZUNGSFARBE 

710 

DEC 

A ; LETZTE KREISFARBE 

720 

AND 

3 

730 

JR 

NZ,L2 ; KEIN SCHUARZ —> 

740 

INC 

A ; SCHUARZ —> BLAU 

750 L2 

LD 

C BEGRF2),A ; BEGRENZUNGSFARBE 

760 

PUSH 

BC 

770 

CALL 

PAINT ; PAINT E,D,C,C,C-1 

780 

POP 

BC 

790 

LD 

A,C ; RADIUS = RADIUS + 8 

800 

ADD 

A, 8 

810 

LD 

C, A 

820 

CP 

64 ; RADIUS = 64 

830 

JR 

NZ » LOOP ; NEIN —> 

840 

CALL 

49H ; UARTE TASTENDRUCK 

850 

RET 


860 

END 

START 


V* ■ 
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Beispiel 2 füllt den Bildschirm mit ineinander 
verschachtelten Rechtecken. Die Unregelmäßigkeiten dabei 
ergeben sich aus dem Uachsen des Parameters B über 51. 
Durch Drucken der RETURN-Taste nach Fertigstellung des 
ersten Bildes (wird erst nach einiger Zeit akzeptiert) > 
wird der Background abgeschaltet. Nach nochmaligem Drücken 
der RETURN-Taste werden die Farben verändert. Durch ein 
weiteres Drücken der RETURN-Taste kann danach wieder der 
Background eingeschaltet werden. Schließlich kann durch 
Drücken der RETURN-Taste das Programm beendet werden. Das 
Beispiel zeigt insbesondere die Anwendung der 
Unterprogramme DETOHL, PLGTHL und CPOINT. Dabei ist 
besonders zu beachten, daß DETOHL die X-Endkoordinate in H 
und die Y-Endkoordinate in L erwartet, während PLOTHL und 
CPOINT die X-Koordinate in L und die Y-Koordinate in H 
e rwarten* r, . r ^ f n.. 


*1 Vi’ '* V r r ^V,; 


100 
1 1 0 
120 
130 
1 40 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
3S0 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
430 
490 
500 
510 
520 


********************************************* 


* BEISPIEL 


* RECHTECKE IN FGR AUSGEBEN 


* CG) 1985 LUIDGER RÖCKRATH 




FCOLOU 

FCLS 

FGR 

LGR 

BGRD 

NBGRD 

DETOHL 

PLOTHL 

CPOINT 


EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 


PROGR AtlHST ART 


START 


LOOP 


ORG 

CALL 

LD 

CALL 

CALL 

LD 

LD 

AND 

CALL 

LD 

LD 

LD 

SUB 

LD 

LD 

PUSH 

PUSH 

CALL 

POP 

POP 

LD 


38DAH 

384DH 

38A9H 

38B0H 

38B7H 

38BBH 

3C1FH 

3B8AH 

3F3AH 


7000H 
FGR 
A ,0 
FCLS 
BGRD 
B, 1 
A , B 

O 

FCOLOU 

D, B 

E, B 
A, 159 

B 

H,A 
L, B 
BC 
HL 

DETOHL 

DE 

BC 

A, 101 


LINIE UQN CD,E> NACH CH,L> 

PUNKT AUF CL,H> SETZEN . 

PUNKT (L,H> ABFRAGEN 


; GRAFIK EIN 
; FCLS 

; BGRD 
; ZAEHLER 


FCOLOUR B 
Xl=B 
Y 1 =B 

X2~159-B 


; Y2=B 

; ENDKOOR. 

; CO,E> —> C H,L) 
; JET2T ANFKOOR. 


; Y2-101-B 
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- * 




530 

SUB 

B 


540 

LD 

L „ A 


550 

LD 

H, D ; 

X2=X 1 

560 

PUSH 

BC 


570 

PUSH 

HL 

ENDKOOR. 

580 

CALL 

DETOHL 

CD,E ) —> < H , L ) 

590 

POP 

DE 

JETZT ANFKOOR. 

600 

POP 

BC 


610 

LD 

L, E 

Y2=Y 1 

620 

LD 

H,B 

X2=B 

630 

PUSH 

BC 


640 

PUSH 

HL 

ENDKOOR. 

650 

CALL 

DETOHL 

CD,E) —> CH,L) 

660 

POP 

DE 

JETZT ANFKOOR. 

670 

POP 

BC 


680 

LD 

L, B 

Y2=B 

690 

LD 

H, B ; 

X2=B 

700 

PUSH 

BC 


710 

CALL 

DETOHL * 

X 

A 

1 

t 

tu 

Q 

V 

720 

POP 

BC 


730 

INC 

B 

GROESSE - 1 

740 

JR 

NZ,LOOP 

GROESSE > 0 —> 

750 

CALL 

49H 

UARTE TASTENDRUCK 

760 

CALL 

NBGRD 

BACKGROUND AUS 

770 

CALL 

49H 

UARTE TASTENDRUCK 

780 

t 



790 

; FARBEN ROTIEREN: 

800 

; SCHUARZ — > BLAU — > ROT — > GRUEN — 

810 

* 

* 



820 

LD 

HL,0 

H = Y> L = X , X=0 > Y= 

830 L00P2 

PUSH 

HL 


840 

CALL 

CPOINT 

FARBE BEST. 

850 

POP 

HL 


860 

INC 

A 

FARBE + 1 

870 

AND 

3 


880 

CALL 

FCOLOU 

; NEUE FARBE SETZEN 

890 

PUSH 

HL 


900 

CALL 

PLOTHL 

; PUNKT IN NEUER FARBE 

910 

POP 

HL 


920 

INC 

L 

; X + 1 

930 

LD 

A,L 

; X = 160 ~ - - 

940 

CP 

160 


950 

JR 

NZ,L00P2 

; NEIN, — > 

960 

LD 

L » 0 

; X = 0 

970 

INC 

H 

; Y + 1 

980 

LD 

A , H 

; Y = 102 

990 

CP 

102 


1000 

JR 

NZ , L00P2 ; NEIN , — > 

1010 

CALL 

49H 

; UARTE TASTENDRUCK 

1020 

CALL 

BGRD 

; BACKGROUNG EIN 

1030 

CALL 

49H 

; UARTE TASTENDRUCK 

1040 

RET 



1050 

END 

START 



-t , t '-■* v** ir ^ Vtf* 
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Das 1 etzte Bei sp i el ermög 1 i cht den Ausdruck des 
Grafikbi1dschirm auf einem Drucker. Die Farben werden in 
Grausiufen umgesetzt. Die Steuercodes für den Drucker sind 
für alle EPSON- und STAR-Drucker geeignet,. Bei anderen 
Druckern müssen nur fo1gende Steuercodes geändert werden: 

lBH,41H,n = Vorschub auf n-Punkte einstellen 
iBH,4CH > C0H, 03H = 960 Bytes in Grafik folgen 


100 


110 

* * 
i ^ 



* 

120 

;* BEISPIEL 


* 

130 

; * 



« 

140 

; * FGR 

AUSGABE 

AUF DRUCKER * 

1S0 

; * 



* 

160 

; * <C> 

1985 LUIDGER RÖCKRATH * 

170 

; * 



* 

180 


190 

t 




200 

PRCHAR 

EQU 

050EH 

ZEICHEN A AUF DRUCKER 

210 

BREITE 

EQU 

40 

40 ZEICHEN PRO ZEILE 

220 

BYPDOT 

EQU 

4 

BYTE AUF DRUCKER PRO DOT 

230 

MASKE 

EQU 

' 0F0H 

MASKE 

240 

HGRRAM 

EQU 

4800H 

SPEICHER FUER FGR 

250 

ESC 

EQU 

27 

ESC = 27 

260 

CR 

EQU 

13 


270 

> 




280 

START 

LD 

A , ESC 

ESC»A,BYPDOT AUF DRUCKER 

290 


CALL 

PRINT 

DEFINIERT ZEILENVORSCHUB 

300 


LD 

A> 'A' 

IN PUNKTEN 

310 


CALL 

PRINT 


320 


LD 

A»BYPDOT 


330 


CALL 

PRINT 


340 


LD 

HL > HGRRAM 

350 

ZEILE 

LD 

B,BREITE 

; 40 ZEICHEN / ZEILE 

360 


LD 

A»ESC 

ESC » L,C0H,3 

370 


CALL 

PRINT 

ES FOLGEN 960 GRAPHIC-BYTES 

380 


LD 

A» ’L’ 


390 


CALL 

PRINT 


400 


LD 

A , 0C0H 


410 

i . * * > 

CALL. . 

! ^ P P X -H T j (*■" * 1 ■ i t' J , , V' 71 . Xr “ 'ifr f f y ■>***J^ 

420 


LD 

A,3 


430 


CALL 

PRINT 


440 

BYTE 

LD 

A,CHL> 

1 BYTE AUS FGR 

450 


INC 

HL 


460 


LD 

C,4 

4 DOTS PRO BYTE 

470 

DOT 

RLCA 


NAECHSTEN PUNKT 

480 


RLCA 


NACH BIT 0 UND 1 

490 


PUSH 

AF 

BYTE RETTEN 

500 


AND 

3 

1 DOT HERAUSBLENDEN 

510 


ADD 

A , A 

* 2 

520 


PUSH 

AF 


530 


ADD 

A, A 

* 4 

540 


POP 

DE 


550 


ADD 

A, D 

A - FARBCODE * 6 

560 


PUSH 

HL 


570 


LD 

HL > MUSTER 

580 


LD 

E, A 


590 


LD 

D, 0 


600 


ADD 

HL »DE 

; HL ZEIGT AUF MUSTER 
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610 

PUSH 

BC 


620 

LD 

B, 6 ; 

6 BYTES DES MUSTERS 

630 OUT 

LD 

A ,(HL) ; 

MUSTERBYTE LADEN 

640 

AND 

MASKE ; 

MIT MASKE UND IEREN 

650 

CALL 

PRINT ; 

AUSGEBEN 

660 

INC 

HL 


670 

DJNZ 

OUT 


680 

POP 

BC ; 

ZAEHLER ZURUECK 

690 

POP 

HL ; 

ZEIGER AUF FGR-RAM ZURÜCK 

700 

POP 

AF ; 

BYTE ZURUECK 

710 

DEC 

C ; 

4 PUNKTE / BYTE BEARBEITET 

720 

JR 

NZ,DOT ; 

NEIN, —> 

730 

DJNZ 

BYTE ; 

ZEILE FERTIG, NEIN —> 

740 

LD 

A , CR ; 

VORSCHUB BYPDOT 

750 

CALL 

PRINT ; 

PUNKTE 

760 t . 

LD 

DE>57F0H ; 

ENDE FGR-RAM PRINT .« 

770 

RST 

18H 


780 

JR 

NZ,ZEILE ; 

NEIN —> UEITER 

790 

RET 



800 

; DRUCKT ZEICHEN IN A 

810 PRINT 

PUSH 

BC 


820 

LD 

C, A 


830 

CALL 

PRCHAR 


840 

POP 

BC 


850 

RET 



860 

* 



870 

; MUSTER ZUR UMSETZUNG DER FARBE 

880 

* 



890 MUSTER 

DEFB 

0 ; 

SCHWARZ 

900 

DEFB 

0 


910 

DEFB 

0 


920 

DEFB 

0 


930 

DEFB 

0 


940 

DEFB 

0 


950 

DEFB 

24H ' ; 

BLAU: X X * .. 

960 

DEFB 

48H ; 

X X 

970 

DEFB 

90H ; 

X X 

980 

DEFB 

24H ; 

X X 

990 

DEFB 

48H 

X X 

1000 

DEFB 

90H 

X X 

1010 

DEFB 

6CH 

ROT XX XX 

1020 

DEFB 

0B4H 

X XX X 

1030 

DEFB 

0D8H 

XX XX 

1040 

DEFB 

6CH 

XX XX 

1050 

DEFB 

0B4H 

X XX X 

1060 

DEFB 

0D8H 

XX XX 

1070 

DEFB 

0FCH 

GRUEN XXXXXX 

1080 

DEFB 

0FCH 

XXXXXX 

1090 

DEFB 

0FCH 

XXXXXX 

1100 

DEFB 

0FCH 

XXXXXX 

1 1 10 

DEFB 

0FCH 

XXXXXX 

1120 

DEFB 

0FCH 

XXXXXX 

1130 

END 

START 
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1.1.3 Der Video-Control1er CCRTC) 


Die Umwandlung des Inhaltes des Bildwiederholspeichers in 
ein Videosignal wird beim Colour—Genie von einem 
hochintegrierten Videocontroller (CRTC) übernommen. Dieser 
Chip hat 16 Register mit denen er programmiert werden kann, 
über den Systembus ist er mit 2 Adressen anzusprechen: 0FAH 
(= 250) und 0FBH ( = 251). In die Adresse 250 muß zunächst 
die RegiSternummer geschrieben werden, bevor mit einem 
OUT-Befehl auf die Adresse 251 das entsprechende Register 
belegt werden kann. 

Die 16 Register des CRTC haben folgende Funktion: 


Reg 

Funktion 


Adr . 

Tab 

Initwert 




LGR 

FGR 

LGR 

FGR 

0 

Hörizontale Abtastgeschwindigkeit 

42FF 

430F 

70 

70 

1 

Zeichen pro Zeile 

42FE 

430E 

40 

40 

2 

Hörizonta1e Synchronisationsposition 

42FD 

430D 

52 

52 

3 

Länge der 

Zeilensynchronisation 

42FC 

430C 

150 

150 

4 

Vertikale 

Gesamtzahl der Zeilen 

42FB 

430B 

38 

126 

5 

Vertika1e 

Justierung (Bildfang) 

42FA 

430 A 

0 

31 

6 

Zeilenzah1 

(dargestellte Zeilen) 

42F9 

4309 

25 

102 

7 

Vertikale 

Synchronisationsposition 

42F8 

4308 

31 

116 

8 

Inter1ace 

und Skew 

42F7 

4307 

160 

32 

9 

Zeichen—End—Raster 

42F6 

4306 

7 

1 

10 

Cursor B1inken, Cursor Start Raster 

42F5 

4305 

196 

32 


Bit 0-3 : 

Cursorstartraster 






Bit 5-6 : 

= 00 Cursor blinkt nicht 






= 01 Cursor aus 
= 10 Cursor blinkt schnell 
= 11 Cursor blinkt langsam 


11 

Cursor End Raster 


42F4 

4304 

7 

0 

12 

Bi 1dwiederho1speicheradresse 

(ÜSB) 

42F3 

4303 

4 

8 

13 


( LSB) 

42F2 

4302 

0 

0 

14 

Cursoradresse 


42F1 

4301 

0 

0 

15 

17 


42F0 

4300 

1 

0 

t * k- 

* r r - * -*“l r - 1 . ' " *1 I-t 




- i 1 - * 







Bemerkungen: 

zu: Hörizonta1e Abtastgeschwindigkeit 

Erhöhen des Uertes macht das Bild schma1er, Erniedrigen 
breiter. Änderungen sind aber nur in einem sehr schma1em 
Bereich mög1 ich, da sonst die Synchronisation verloren 
geht. 

zu: Hörizonta1e Synchronisationsposition 

Durch Verändern dieses Uertes kann das Bild auf dem 
Bildschirm hörizonta1 veschoben werden. Größerer Uert 
bewirkt Linksverschieben. 


zu: Vertikale Synchronisationsposition 

siehe oben. Größerer Uert bewirkt Hochschieben des Bildes * 
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zu: Zeichenendraster 

a11einige Änderung führt sofort zu Desynchronisation 

zu: Cursor Blinken und Cursorstartraster / -endraster 

Die Uerte für diese beiden Register nicht hier, sondern in 
die Speicherze11en 4019H CEndraster) und 401AH CStartraster 
und Blinken) eintragen. Die RAH-Tabelle uird nur bei der 
Initialisierung benutzt. Die Videoausgabe über OUTCH setzt 
bei jedem Aufruf durch die Routine CURSET Cs. u.) beide 
Register auf die in diesen Speicherze1 len befindlichen 
Uerte. 

zu: Bi 1dschirmspeieheradresse 

Hier muß die Adresse - 4000H abglegt werden, 
zu: Cursoradresse 

Die Cursoradresse muß absolut Calso nicht abzüglieh 4000H, 
s* o.) hier abgelegt werden. Ändern der Uerte in der 
RAIl-Tabelle ist auch hier sinnlos, da die OUTCH-Routine 
hier bei jedem Aufruf die Cursorposition C4020H) einträgt. 


Für die Uerte aller 16 Register ist für beide Grafikmodi im 
RAM eine TabeIle enthalten, die die Uerte allerdings in 
umgekehrter Reihenfolge enthält. Diese beiden Tabellen 
werden beim Systemstart aus dem ROM geladen CROH-Tabe11e 
LGR: 3800H, FGR: 3810H) und durch die Anweisungen LGR und 

FGR werden die CRTC—Register belegt und außerdem wird ein 
Bit von Port 0FFH umgesetzt. Im ROH sind übrigens noch je 
eine Tabelle für die NTSC-Horm vorhanden CLGR: 3823H, FGR: 

3833H ) . 

Außer durch die Anweisungen LGR und FGR werden die 
CRTC-Register auch bei jedem Uiedereintritt in die 
Hauptsch1eife mit den LGR-Uerten neu beiegt. Daher können 
durch POKEs in die RAH-Tabelle im Direktmode Änderungen 
vorgenommen werden, die beim Erseheinen des * Ready’ wirksam 
werden. Änderungen der Cursorparameter und -position sind 
hierdurch aber nicht möglieh Cs. o. ) . 

Uill man die RAH-Tabe11e per Basieprogramm ändern, muß man 
zur Neuinitia1isierung des CRTC den gerade gewählten 
Grafikmode noch einmal aktivieren. 

Von Haschinenprogrammen aus können mit folgenden 
Anweisungen die CRTC—Register belegt werden: 

LD A,1 ; Register 1 anwählen 

OUT C 0FAH),A 

LD A,42 

OUT C 0FBH ) , A 


; 2eichen / Zeile 


42 
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Außerdem können folgende Unterprogramme benutzt werden: 


* * 

* CRTC2S : 2 Register des CRTC setzen ♦ 

* # 

* E : 3047H * 

* R : AF * 

* I : A = Registernummer * 

* HL — Uert CH für Reg A, L für Reg A+l * 

* 0 : / * 

* * 




Funktion: 


Zuei Register des CRTC werden neu belegt. Reg A erhält den 
Uert von H, Reg A-l den von L. 


Beispie1: 


LD HL,C 4020H) 

LD A,14 

CALL CRTC2S 


; Cursoradresse laden 
; Reg 14 C Cursoradresse) 

; Cursoradresse CRTC setzen 


* 

* CURSET : Cursor setzen 

* 


E 

R 

I 

0 


305FH 

AF 

HL = Cursoradresse 
/ 


* 

* 

* 

* 

* * 


Funktion: 

Reg 10 des CRTC wird den Cursorparametern aus C4019H) und 
' ‘ C401AH) geladen und Reg 14 mit der Cursoradresse. Außerdem 
wird auf der Cursorposition im Farbspeicher die 
augenblickliche Schreibfarbe C4023H) eingesetzt. 

Beispiel: 

LD HL,4450H ; Cursor auf 4450H 

CALL CURSET 
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*********************************************************** 

* * 

* CURRES : Cursor 1öschen * 

* * 

* E : 3059H * 

* R : AF * 

* I : HL = Cursoradresse * 

* 0 : / * 

# * 

*********************************************************** 

Funktion: 

Reg 10 des CRTC uird mit 20H> Reg 11 mit 7 und Reg 14 mit 
der Cursoradresse geladen. Ansonsten siehe oben. 

" " t ft'«* | lJr- ** 

Beispie1: 


LD 

CALL 


HL,4450H 
CURRES 


; Cursor auf 4450H 
: 1öschen 
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Mit f o 1 gendem Bei spiel programm wird das B i 1 dsch i rmformat i m 
Textmodus auf 30 Zeilen a 50 Zeichen erueitert. Dazu muß 
der CRTC umprogrammiert werden. Außer den Zeichen pro Zeile 
und der Anzahl der dargestellten Zeilen muß die Position 
der hörizontalen und vertikalen Synchronisation geändert 
werden, um das Bild nach 1inks oben zu verschieben. Diese 
Programmierung erfolgt bei der Initialisierung. 

Uürde man nur den CRTC derartig umprogrammieren, würde das 
Bild ziemlich konfus aussehen, denn der Videotreiber des 
Basicinterpreters muß das Bildformat kennen, um den 
Bi1duiederho1speieher richtig zu füllen. Also muß ein 
völlig neuer Videotreiber geschrieben werden, in dem alle 
Parameter, die aus dem Bi 1dformat hergeleitet sind , 
geändert sind. Folgendes Beispielprogramm enthält einen 
solchen Uideotreiber. Dazu wurde mit dem NEUDOS 
Disassembler (DISASSEM) mit der STD—Option aus dem Treiber 
i m ROH C 3039H - 3222H, sowie 35F8H - 3652H > ein 
QuelIprogramm erzeugt, das dann an allen erforderlichen 
Ste11en geändert wurde. Sch1ieß1ich wurden die 
überf1üssigen Programmteile wieder entfernt und stattdessen 
Sprünge und Aufrufe ans ROM eingesetzt. So wurde der 
nachfolgend aufgelistete Videotreiber erstellt. Aus dieser 
Endstehungsweise erk1ären sich die merkwürdigen Labels 
(AAA, AAB, ...} und das fast gänzliche Fehlen von 
Kommentaren. Lediglich einige Strukturierende übersehriften 
wurden eingefügt. Uer an tiefergehenden Kommentaren 
i nteress iert ist, kann im ROM-Li st i ng den 
Origina1videotreiber durcharbeiten. 


100 

110 

120 

130 

140 

150 

160 

170 


* * 

* BEISPIEL * 

* * 

* Bi1dschirm auf 30 Zei1en a 50 Zeichen # 

* * 

* CC) 1985 LUIDGER RÖCKRATH * 

* * 


180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

330 

340 

350 

360 

370 

380 

390 

400 



i 

ORG 

0BC00H 

DISVEC 

EQU 


RST18V 

EQU 

4007H 

VIDRAfi 

EQU 

4400H 

CURSET 

EQU 

305FH 

CURRES 

EQU 

3059H 

COLSET 

EQU 

307AH 

CLS 

EQU 

01C9H 

CPL 

EQU 

50 ; ZEICHEN PRO ZEILE 

LINES 

EQU 

30 ; ZEILENANZAHL 

GESAMT 

EQU 

1500 ; = LINES*CPL = GESAMTZAHL DER 

; ZEICHEN AUF DEM BILDSCHIRM 

FCERR 

EQU 

1E4AH 

CURSOR 

EQU 

4020H 

LAST 

EQU 

VIDRAM+GESAMT 

FARBE 

EQU 

0F000H 

IN IT 

LD 

A , CPL 


LD 

C17150),A ; CPL IN CRT-T ABELLE 


LD 

A,LINES 


; CPL IN CRT-TABELLE 
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410 

LD 

C17145),A i 

420 

LD 

A , 33 

430 

LD 

C17144) , A ; 

440 

LD 

A , 56 

450 

LD 

C17149),A ; 

460 

f 


470 

LD 

HL,VIDEO 

480 

LD 

CDISVEC),HL 

490 

f 


500 

LD 

HL,(RST18V) 

510 

LD 

(RST18C+1>,HL 

520 

LD 

HL,RST18N 

530 

LD 

(RST18V),HL 

540 

CALL 

CLS 

550 

JP 

1A19H 

_ 560 

> 


570 ABB 

INC 

HL 

580 

PUSH 

HL 

590 

CALL 

ABT 

600 

EX 

DE, HL 

610 

POP 

HL 

620 

RST 

18H 

630 

RET 

NZ 

640 

LD 

DE,-CPL 

650 

ADD 

HL, DE 

660 

RET 


670 ABI 

PUSH 

HL 

680 

PUSH 

DE 

690 

PUSH 

BC 

700 

LD 

HL,(CURSOR) 

710 

PUSH 

HL 

720 

CALL 

ABT 

730 

JP 

30A7H 

740 

» 


750 VIDEO 

LD 

L»(IX+03H> 

760 

LD 

H,(IX+04H) 

770 

JP 

C,317DH 

780 

LD 

A,(IX+05H) 

790 

OR 

A 

800 

JR 

N2,ABN 

810 

CALL 

CURRES 

820 

JR 

ABO 

830 ABN 

CALL 

CURSET 

840 ABO 

LD 

A , C 

850 

CP 


860 

JR 

C, ABS 

870 

CALL 

ABV 

880 ABP 

JP 

3108H 

890 

* 


900 

; STEUERZEICHEN ERKENNEN 

910 

• 

V 


920 ABS 

LD 

DE,ABP 

930 

PUSH 

DE 

940 

CP 

8 

950 

JP 

2,31DFH 

960 

CP 

0AH 

970 

RET 

C 

980 

CP 

0EH 

990 

JP 

C, ACF 

1000 

JP 

Z,31 FSH 


LINES IN CRT-TABELLE 
HORIZONTALE JUSTIERUNG 
VERTIKALE JUSTIERUNG 


i * + *■ * * * ^ rw* * V ^ 
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1010 

CP 

0FH 

1020 

JP 

2,31 FDH 

1030 

CP 

18H 

1040 

RET 

C 

1050 

CP 

18H 

1060 

JP 

Z, ACL 

1070 

CP 

19H 

1080 

JP 

Z, ABB 

1090 

CP 

IAH 

1 100 

JP 

2, ACQ 

1 1 10 

CP 

1BH 

1 120 

JP 

Z> ACS 

1130 

CP 

ICH 

1 140 

JP 

Z , 3 1 D4H 

1150 

CP 

1 DH 

1 160 

JP 

Z, ACH 

1170 

CP 

1 EH 

1180 

JR 

Z, ACE 

1 190 

CP 

1 FH 

1200 

JR 

Z, ACB 

1210 

RET 


1220 

i 


1230 

; ZEIGER AUF ZEILENEHI 

1240 

■ 


1250 ABT 

LD 

DE,-UI DRAM 

1260 

LD 

B,1 

1270 

ADD 

HL, DE 

1280 ABU 

LD 

DE,CPL 

1290 

OR 

A 

1300 

SBC 

HL, DE 

1310 

JR 

C, ABU 

1320 

INC 

B 

1330 

JR 

ABU 

1340 ABU 

LD 

HL,UIDRAH-CPL 

1350 ABU 

ADD 

HL, DE 

1360 

DJNZ 

ABU 

1370 

RET 


1380 

1 


1390 

; ZEICHEN AUF BILOSCH 

1400 

* 

* 


1410 ABY 

CALL 

COLSET 

1420 

LD 

(HL) , A 

1430 

INC 

HL 

1440 

LD 

DE,LAST 

1450 

RST 

18H 

1 460 

RET 

C 

1470 

LD 

HL,LAST 

I486 ABZ 

LD 

DE,-CPL 

1490 

ADD 

HL, DE 

1500 

PUSH 

HL 

1510 

EXX 


1520 

PUSH 

BC 

1530 

PUSH 

DE 

1540 

PUSH 

HL 

1550 

LD 

DE,FARBE 

1560 

LD 

HL ,FARBE+CPL 

1570 

LD 

BC,GESAMT-CPL 

1580 

PUSH 

BC 

1590 

EXX 


1600 

LD 

DE,UI DRAM 
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1610 

LD 

HL,UIDRAn+CPL 

1620 

POP 

BC 

1630 ACA 

LD I 


1640 

EXX 


1650 

LD I 


1660 

EXX 


1670 

LD 

A,B 

1680 

OR 

C 

1690 . 

JR 

HZ > ACA 

1700 

EXX 


1710 

POP 

HL 

1720 

POP 

DE 

1730 

POP 

BC 

1740 

EXX 


1750 

POP 

HL 

1760 ACB 

LD 

DE,LAST ' ‘ 

1770 ACC 

JP 

31 ACH 

1780 

t 


1790 

; 1 EH 


1800 

* 


1810 ACE 

PUSH 

HL 

1820 

CALL 

ABT 

1830 

JP 

31C3H 

1840 

• 

t 


1850 

; CR 


1860 

• 

> 


1870 ACF 

CALL 

360 AH 

1880 

CALL 

ABT 

1890 

ADD 

HL, DE 

1900 

LD 

DE,LAST 

1910 

RST 

18H 

1920 

JR 

Z, ABZ 

1930 

RET 


1940 

) 


1950 

; CURSOR ZUN ZEILENANFANG 

I960 

f 


1970 ACH 

CALL 

ABT 

1980 ACI 

JP 

CURSET 

1990 ACL 

PUSH 

HL 

2000 

CALL 

ABT 

2010 

EX 

DE, HL 

2020 

POP 

HL 

2030 

RST 

18H 

2040 

JR 

2, ACH 

2050 

DEC 

HL 

2060 

JP 

CURSET 

2070 ACH 

DEC 

HL 

2080 

LD 

DE,CPL 

2090 

ADD 

HL, DE 

2100 

JP 

CURSET 

21 10 

* 


2120 

; CURSOR DOUN 

2130 

t 


2140 ACÖ 

LD 

DE,CPL 

2150 

CALL 

360 AH 

2160 

ADD 

HL, DE 

2170 

OR 

A 

2180 

CCF 


2190 

LD 

DE,LAST 

2200 

RST 

18H 
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2210 

2220 

2230 

2240 ACR 
2250 
2260 
2270 

2280 ACS 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 ACT 
2370 

2380 RST18N 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 RST18C 

2480 

2490 


JR C,ACR 

LD DE,-GESAUT+CPL 


ADD 

HL »DE 

JP 

* 

CURSET 

# 

; CURSOR UP 
* 

LD 

DE,-CPL 

CALL 

360AH 

ADD 

HL, DE 

LD 

DE,VIDRAU 

RST 

18H 

JR 

NC,ACT 

LD 

DE,GESAUT 

ADD 

HL, DE 

JP 

• 

CURSET 

EX 

< SP > , HL 

LD 

A,L 

CP 

0D8H 

LD 

A , H 

EX 

C SP),HL 

JR 

N2,RST18C 

CP 

30 H 

JR 

NZ,RST18C 

LD 

HL, GESAI1T” 1 

JP 

* 

RST18C 

END 

INIT 


; AUFRUF VON 30D8H 
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Kapitel 2 : Die Programmierung der Tonausgabe 


I 

J 

Der PSG <Programmable Sound Generator) im Colour-Genie 

b i etet vielfälti ge Ilög 1 ichkei ten der Tonerzeugung mit l 

geringem Aufwand. Er hat drei Kanäle, die völlig unabhängig 

voneinander in Tonhöhe, Lautstärke, Hüllkurve, Rauschen, 1 

... programmiert werden können. Außerdem bietet er 4 

paralleie Ein-/Ausgabeports. 

Die vielen tlögl i chke i ten des PSG werden über 16 Reg i ster ^ 

programmiert. Für diese 16 Register werden aber nur 2 
Portadressen belegt. Daher muß zum Schreiben oder Lesen ^ 

eines Registers zunächst dessen Nummer in Port E8H C=248) 
geschrieben werden, wonach der Uert in Port E9H (=249) 
geschrieben bzw. gelesen werden kann. 

Die 16 Register des PSG haben folgende Funktion: 

Reg 0 Bit 0-7 : Kanal A Schwingungsdauer Feineinste11ung 

Reg 1 Bit 0-3 : Kanal A Schwingungsdauer Grobeinstellung 

Reg 2 Bit 0-7 : Kanal B Schwingungsdauer Feineinstellung 

Reg 3 Bit 0-3 : Kanal B Schwingungsdauer Grobeinstellung 

Reg 4 Bit 0-7 : Kanal C Schwingungsdauer Feineinstellung 

Reg S Bit 0—3 : Kanal C Schwingungsdauer Grobeinstellung 

Reg 6 Bit 0-4 : Rauschperiode 
Reg 7 Bit 0 : = 0 Tonausgabe Kanal A ein 

= 1 Tonausgabe Kanal A aus 

Bit 1 : = 0 Tonausgabe Kanal B ein 

= 1 Tonausgabe Kanal B aus 
Bit 2 : = 0 Tonausgabe Kanal C ein 

= 1 Tonausgabe Kanal C aus 
Bit 3 : = 0 Rauschen Kanal A ein 

= 1 Rauschen Kanal A aus 

Bit 4 : = 0 Rauschen Kanal B ein 

= 1 Rauschen Kanal B aus 
Bit 5 : = 0 Rauschen Kanal C ein 

= 1 Rauschen Kanal C aus 

Bit 6 : = 0 I/O Port A Eingabe 

=11/0 Port A Ausgabe 
Bit 7 : = 0 I/O Port B Eingabe 

=1 I/O Port B Ausgabe 
Reg 8 Bit 0-3 : Lautstärke Kanal A 

Bit 4 : = 0 Hüllkurve Kanal A aus 

= 1 Hüllkurve Kanal A ein , 

Reg 9 Bit 0-3 : Lautstärke Kanal B ) 

Bit 4 : = 0 Hüllkurve Kanal B aus 

= 1 Hüllkurve Kanal B ein j 

Reg 10 Bit 0-3 : Lautstärke Kana 1 C 

Bit 4 : = 0 Hüllkurve Kanal C aus 

= 1 Hüllkurve Kanal C ein 

Reg 11 Bit 0-7 : Periode der Hüllkurve Feineinstellung 

Reg 12 Bit 0-7 : Periode der Hüllkurve Grobeinstellung 

Reg 13 Bit 0 : HOLD 

= 0 : Lautstärke am Ende auf 0 
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Bit 1 

Bit 2 

Bit 3 

Reg 14 Bit 0-7 
Reg 15 Bit 0-7 


= 1 : Lautstärke nach einer Periode halten 

ALT 

= 0 : Sprung von 15 auf 0 oder umgekehrt 

= 1 : keine Sprünge 

ATT 

= 0 : mit Lautstärke 15 beginnen 
= 1 : mit Lautstärke 0 beginnen 

CONT 

= 0 : nur eine Periode 
= 1 : beliebig lange fortsetzen 

1/0-Fort A Daten 
I/O-Port B Daten 


Beispie1e: 

Tonhöhe: 

Die Tonhöhe muß durch einen Teilungsfaktor angegeben 
werden. Dieser gibt an wie der Haupttakt geteilt werden 
soll. Dieser Faktor ist 12 Bit lang. Die niederwertigen 8 
Bit müssen in Reg 0, 2 oder 4 < Kanal A, B oder C) und die 
höherwertigen 4 Bit in Reg 1, 3 oder 5 geschrieben werden. 

Im Colour-Genie ROM ist eine Tabelle für alle 12 Töne der 
tiefsten Oktave CI) jeweils in der unsauberen EACA—Stimmung 
und in einer besseren NCU—Stimmung entha1ten: 

C D E F G A H CIS DIS FIS GIS B 

EACA: D5B BE7 ASB A02 8EB 7F2 714 C9C B3C 973 86B 780 

NCU: 1090 EC0 D24 C68 B0C 9D8 8C8 FA0 DEB BB4 A70 948 

Die Tabellen beginnen im ROM bei 3DD1H bzw. 3DF1H. Die 12 

Bit 1angen Schwingungsdauern sind in zwei Byte - zunächst 
die Grobeinstellung und folgend die Feineinstellung - 
abge1egt. 

So wird ein D der Oktave 1 auf Kanal A programmiert. 


LD 

A, 0 

* 

- 1 

Reg 0 anwählen. 


OUT 

C0E8H),A 




LD 

A , 0C0H 

i 

Feineinsteilung 

A 

OUT 

C0E9H),A 

t 

Programmieren 


LD 

A,1 

t 

Reg 1 anwählen 


OUT 

C0E8H),A 




LD 

A, 0EH 

f 

Grobeinste11ung 

A 

OUT 

C0E9H),A 

t 

Programmieren 

- 


Soll das D nicht in der Oktave 1 sondern eine Oktave höher 
erklingen, muß statt des Teilungsfaktors 0EC0H der Faktor 
760H programmiert werden. Eine Halbierung des 
Tei1ungsfaktors bewirkt eine Verdopplung der Frequenz. 

Lautstärke: 

Um das Rauschen abzuschalten und die Lautstärke auf 15 zu 
stellen, muß noch folgende Sequenz programmiert werden und 
der Ton erklingt: 
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LD 

A,7 

; Reg 7 anwählen 

OUT 

C0E8H),A 


LD 

A , 38H 

; = 001U000B 

LD 

C0E9H),A 

; Rauschen aus, Ton 

LD 

A ,8 

; Reg 8 anwäh1en 

OUT 

C0E8H),A 


LD 

A , 15 

; Lautstärke Kanal A 

OUT 

C0E9H),A 

; = 15 


Zur Programmierung des PSG können leider nur uenige 
ROM-Routinen verwendet werden. Die Routine zum PLAY-Befehl 
kann nicht verwendet werden, da Auswertung der Parameter 
aus dem Basictext und Verarbeitung zu eng verwoben sind* 

*********************************************************** 


* * 

* SOUHD : Uert auf PSG-Register ausgeben * 

* * 

* E : 3E32H * 

* R : A=E * 

* I : A = Registernummer * 

* E = Uert $ 

* * 


*********************************************************** 
Funktion: 

entspricht BASIC: SOUND A,E 
Beispie1: 


LD A, 8 ; Kanal A Lautstärke 

LD E,15 ; = 15 

CALL SOUND ; SOUND 8,15 


*********************************************************** 
* * 

* SNDDE : Uert auf 2 PSG-Register ausgeben * 

* * 

* E : 3E2AH * 

* R : A=E * 

* I : A = Registernummer # 

* DE = Uert * 

* * 
*********************************************************** 

Funktion: 

entspricht BASIC: SOUND A,D:SOUND A-l,£ 

Beispie1: 

LD DE„0EC0H ; Schwingungsdauer D 

LD A,1 ; Kana1 A 

CALL SNDDE 
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Folgendes Beispielprogramm gibt eine Tonleiter über alle 
Oktaven mit vol1er Lautstärke aus. Dazu uird aus der 
Tabelle der Schuingungsdauern der Uert, für den jeweiligen 
Ton entnommen, und für jede Oktave durch 2 dividiert, und 
der sich so ergebende Uert in den PSG programmiert. 


100 

;***********************************$********* 

110 

; * 



* 

120 

;* BEISPIEL 


* 

130 

• * 

* ^ 



* 

140 

;* TONLEITER 

UEBER ALLE 

OKTAUEN AUSGEBEN * 

150 

; * 



* 

160 

;* <C> 

1985 LUIDGER RÖCKRATH * 

170 

; * 



* 

180 

;********************************************* 

190 

> 




200 

SOUND 

EQU 

3E32H 

; SOUND A,E 

210 

SNDDE 

EQU 

3E2AH 

; SOUND A,D:SOUND A-l,E 

220 

FGR 

EQU 

38A9H 


230 

CDUR 

EQU 

3DEFH 

; TABELLE C-DUR TONLEITER 

240 

DELAY 

EQU 

0060H 

; UARTESCHLEIFE 

250 

t 




260 

; PR0GRAM1START 


270 

t 




280 

START 

LD 

E, 38H 

; KEIN RAUSCHEN 

290 


LD 

A,7 

; AUF KANAL A-C 

300 


CALL 

SOUND 


310 


LD 

E, 15 

; LAUTSTAERKE 0 = 15 

320 


LD 

A, 8 


330 


CALL 

SOUND 


340 


LD 

B,1 

; OKTAUE = 1 

350 

OKTAUE 

LD 

HL,CDUR+2 ; ZEIGER AUF C 

360 


LD 

C, 1 

; C=TONNR. 

376 

TON 

LD 

E,(HL) 

; SCHU.D. LADEN 

380 


INC 

HL 


390 


LD 

D, (HLj 


400 


INC 

HL 


410 


RLC 

E 

; DE * 2 

428 


RL 

D 


430 


PUSH 

BC 

; OKTAUE RETTEN 

440 

DIU 

SRL 

o 

; DE / 2» PRO OKTAUE ' 

450 


RR 

E 


460 


DJNZ 

DIU 


470 


LD 

BC,40000 ; UARTEN 

480 


CALL 

DELAY 


490 


LD 

A,1 

; TON AUF KANAL A 

500 


CALL 

SNDDE 

3 

510 


POP 

BC 

; OKTAUE ZURUECK 

520 


INC 

C 

; 7 TOENE 

530 


LD 

A , C 


540 


CP 

8 


550 


JR 

NZ , TON 

; NEIN — > NAECHSTER TON 

560 


INC 

B 

; 8 OKTAUEN 

570 


LD 

A , B 


580 


CP 

9 


590 


JR 

NZ »OKTAUE ; NEIN — > NAECHSTER TON 

600 


RET 



610 


END 

START 
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2.1 Die Programmierung der Para 11elsehnittste11e 


Eine Para11elsehnittste11e ist im PSG eingebaut. Sie 
besteht aus 2 Port mit je 8 Bits. Jeder Port kann zur 
Eingabe oder Ausgabe benutzt uerden. Dies uird mit den Bits 
6 und 7 im Register 7 festgelegt. 

Die Ports selbst uerden über die Register 14 und 15 gesetzt 
bzu * gelesen. 

Beispiel: 


LD 

A > 7 

: Reg ? 

anuählen 


OUT 

C0E8H) , A 


* *■> mR* ~t 

LD 

A , 40H 

; Port 

A Ausgabe 


OUT 

C0E9H) , A 

; Port 

B Eingabe 


LD 

OUT 

A, 14 

C0E8H) , A 

; Port 

A anuählen 


LD 

OUT 

A , 0FFH 
< 0E9H) , A 

; Alle 

Bits setzen 


LD 

OUT 

A, 15 

C0E8H) , A 

; Port 

B anuählen 


IN 

A , C0E9H) 

; Port 

B abfragen 



Die 

Centronics- 

-Para1 leisehnittsteIle für 

den 

Drucker 

uird 

über 

die Ports A und B des PSG bedient. 




Port 

A 

Bit 

0-7 

Ausgabe des Zeichens 




Port 

B 

Bit 

0 

Ausgabe des Strobe 

r 

m t* J 

*+ % -cv V 

Port 

B 

Bit 

7 

Abfrage Busy 






Bit 

6 

Out of Paper 






Bit 

5 

Unit Select 






Bit 

4 

Ready 




Der 

Strobe 

uird durch ein Monoflop auf dem DurckerInterface 

ver1ängert. 

Für etua die 10 fache 

2eitdauer 

uird 

automatisch 

ein 

Busy generiert, auch uenn 

der 

Drucker 

d i es 


nicht anzeigt. 
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Kapite 1 3 : Der Betrieb mit- der Diskettenstation 


1.3.1 Allgemeines 


Für den Zugriff auf Diskettenfiles stellt das DOS im ROH 
eine ganze Anzahl leistungsfähiger Unterprogramme zur 
Verfügung, die größtenteils den entsprechenden 

Unterprogrammen im TRSDOS, NEUDOS und GDOS entsprechen. 
Lediglich die Einsprungadressen unterscheiden sich. Uährend 
bei den genannten Betriebssystemen alle Einsprünge in der 
Page von 4400H-44FFH liegen, sind sie beim Colour-Genie in 
die Page CE00H-CEFFH verlegt. Die LSB's der Adressen 
stimmen aber überein. Dem CALL 4428H unter GDOS, 
entspricht also der CALL 0CE28H auf dem Co1our-Genie. Beide 
Unterprogrammaufrufe bewirken das Schließen eines FCB's. 

Der File Control Block 


Der File Control Block CFCB) enthält alle Informationen 
Uber ein geöffnetes File, die das DOS zum Zugriff benötigt. 
Dieser 32 Byte lange Speicherbereich bildet die Verbindung 
zwischen dem Programm und dem DOS. Beim Eröffnen eines 
Files mittels INIT oder OPEN müssen die ersten Bytes den 
mit CR abgeschlossenen Filenamen enthalten. Diese Routinen 
füllen den FCB dann mit Daten von der Diskette, wodurch das 
File dann mit den anderen Unterprogrammen bearbeitet werden 
kann. Durch die CLOSE-Rout i ne wird der Filename wieder in 
den FCB eingeschrieben. 

Ein FCB zu einem geöffneten File ist folgendermaßen 

aufgebaut: 

FCB : Bit 7=1: File ist eröffnet . , . *. , ^ 

=0 : File ist geschlossen 
Bit 1=1: NEXT und EOF werden Disk-relativ 

interpretiert 

Bit 0=1: Sektoren werden lesegeschützt 

geschrieben. Fehler 6 beim Lesen! 

FCB + 3 : LSB der Bufferadresse, die beim OPEN in HL stand 
FCB + 4 : MSB 

FCB + 5 : NEXT BYTE, Nr. des Bytes im Sektor CFCB + 10,11), 
welches zunächst verarbeitet wird. 

FCB + 6 : Laufwerksnummer 

FCB + 8 : EOF BYTE, Nr. des EOF-Byte im Sektor CFCB +12,13) 
FCB + 10: LSB NEXT, des Sektor der zunächst gelesen 
oder geschrieben wird. 

FCB + 11: MSB NEXT 

FCB + 12: LSB EOF, LSB des letzten Filesektors 
FCB + 13: MSB EOF 
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Besonders wichtig im FCB sind die NEXT und EOF-Felder, die 
jeueils 3 Byte be1egen. Das 2. und 3. Byte (USB + LSB> 
geben die Sektornummer an. Das 1. Byte gibt die Nummer des 
Bytes im Sektor an. Beim Sektorzugriff ist die Nummer des 
Bytes unerheblich. 

Die weiteren Bytes des FCB werden mit Daten aus dem 
Direktory—Entry des Files gefüllt und sind hier nicht von 
besonderem Interesse. Genauere Informationen dazu können 
dem NEUDOS80 V2.0 Handbuch entnommen werden. 

Beim Eugriff auf ein File mit den beschriebenen 
Unterprogrammen muß man sich um den Aufbau des FCB nicht 
kümmern. Beim Eröffnen eines Files mittels OPEN oder INIT 
wird er automatisch eingerichtet. 

Für viele DOS-Unterprogramme gelten ähnliche Parameter. In 
DE wird die Adresse des FCB übergeben, der, wenn nichts 
anderes angegeben ist> eröffnet sein muß. Bei der Rückkehr 
zeigt das gesetzte Zero-F1ag erfolgreiche Bearbeitung des 
Unterprogrammes an. Andernfalls ist im Akku die 
Fehlernummer, deren Bedeutung im DOS-Handbuch nachgelesen 
werden kann. 
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1.3.2 Eröffnen von Files 


* * 

* INIT : evtl, nicht existierendes File eröffnen * 


* INIT 

* 


CE20H 

AF 

DE = Zeiger auf Fi1enamen 
CDE) = 1. Zeichen des Filenamen 
CDE+n) = 0DH 

B = logische Recordlänge 
HL = Bufferadresse 
Z = 0 : kein Fehler 
Z = 1 : Fehler 

A : Fehlernummer 


* t 

Funktion: 

DE weist auf einen Filenamen, der nach den Richtlinien für 
Filenamen aufgebaut sein muß. Er kann also nach einem 
Schrägstrich eine Erweiterung, nach einem Doppelpunkt eine 
Laufwerksbezeichnung oder nach einem Punkt ein Passuord 
enthalten. Existiert ein File mit dem angegebenen Namen, so 
wird es eröffnet. Anderfalls wird ein File neu 
eingerichtet. 

Beispiel: 



LD 

DE,FCB 

FCB-Adresse nach DE 


LD 

HL,BUFFER 

Bufferadresse nach HL 


LD 

B, 0 

Logisehe Sektorlänge 


CALL 

INIT 

Neues File erzeugen 


JR 

NZ, . . . 

Fehler, —> 

FCB 

DEF11 

* TEST/TXT: 1 ’ 

• 


DEFB 

0DH 



DEFS 

32 - $ + FCB ; 

; 32 Bytes für FCB ! 

BUFFER 

DEFS 

256 ; 

; 256 für Buffer 


auch wenn B < > 0 











Funktion: 

Uie OPEN. Existiert das File aber noch nicht, uird mit 
Fehler abgebrochen. 

Beispiel: 


siehe INIT 
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1.3.3 Schreiben und Lesen von Files 


Byteueises Schreiben: 


* 


Byte von Fi 

0013H 

AF 

DE = Zeiger 


* RDBYTE 

* 

* E 

* R 

* I 

* 0 : Z = 0 : kei 

* A : 

* Z = 1 : Feh 

* A : 

* 

********************** 


************************************* 


* 

le lesen * 

* 

* 

* 

auf eröffneben FCB * 

n Fehler * 

gelesenes Bybe * 

1 er * 

Fehlernummer * 

* 


************************************* 


Funkbion: 


Das nächsbe Bybe des Files 
ein Sekbor in den Buffer 
für diese Routine 1iegb in 
wird zur ausführenden Roubin 


uird gelesen» wobei bei Bedarf 
nachgeladen uird. Der Einsprung 
der Page 0! über RAM—Uekboren 
e im DOS verzueigb. 


Beispie1: 



LD 

DE,FCB 

LOOP 

CALL 

RDBYTE 


JR 

NZ,ERROR 


PUSH 

DE 


CALL 

OUTCH 


POP 

DE 


JR 

LOOP 

ERROR 

CP 

28 


RET 

Z 


; Fehlerbearbeibung 


Zeiger auf geöffneben FCB 
1 Bybe lesen 
Fehler ? —> 

Zeichen ausgeben 

ueiber 

Ende der Dabei ? 
ja, ferbig 


* URBYTE 

4c 


*********************************************************** 

* ' : 

■ * 

* * 
* 
* 
* 
* 
* 
* 
* 


E 

R 

I 


Bybe auf File schreiben 

001BH 
AF 

DE = Zeiger auf eröffneben FCB 
A = zu schreibendes Bybe 
Z = 0 : kein Fehler 
Z - 1 : Fehler 

A : Fehlernummer 


* 

4c 
4C 
* 

* 

* 

4c 
* 

*********************************************************** 


Funkbion: 


Das Bybe im Akku uird auf das File geschrieben, wobei fall 


J. 
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r 

j 

; 


E 


]■ 


erforder1ich ein Sektor auf Diskette geschrieben wird. 


Beispiel: 


LD 

DE,FCB 

DE zeigt auf eröffn. FCB 

LOOP LD 

A, CHL) 

Zeichen laden 

AND 

A 

Ende ? 

JR 

Z > • • ^ 

ja, — > 

CALL 

URBYTE 

Byte schreiben 

JR 

NZ, . * . 

Fehler, — > 

INC 

JR 

HL 

LOOP 

; weiter 

Sektoren schreiben und lesen: 

************************************************* ********** 


E 

R 

I 


COPEN) 


* RDSEC 

* 

* 

* 

* 

* 

* 

* 

* 

* 

4c 
* 

* 

* 

* 

* * 
*********************************************************** 


Sektor von File lesen 

CE36H 

AF 

DE — Zeiger auf eröffneten FCB 
B <> 0 beim Eröffnen per OPEN: 

HL = Zeiger auf Buffer der Länge B 
B <> 0 beim Eröffnen per OPEN: 

(HL>...CHL+B-1) : gelesener Record 

Andernfa11s: 

gelesener Sektor im Sektorbuffer 
(HL bei OPEN) 

Z = 0 : kein Fehler 
Z = 1 : Fehler 

A : Fehlernummer 


Funktion: 

Beim Lesen von Sektoren muß zwischen Files mit logischen 
Sektor längen von 256 und anderen unterschieden werden. 
Uurde ein File mit einem Uert von B <> 0 eröffnet, dann muß 
beim Aufruf von RDSEC in HL die Adresse eines Buffer 
entsprechender Lange übergeben werden, in den durch dieses 
Unterprogramm die nächsten B Bytes des Files übertragen 
werden. Uird dadurch eine phys. Sektorgrenze übersehritten, 
wird von Diskette der nächste physikalische Sektor in den 
Sektorbuffer <HL beim öffnen des Files per OPEN) geladen. 
Uurde aber das File mit der Sektorlänge 256 eröffnet, dann 
muß beim Aufruf von RDSEC nichts in HL übergeben werden, 
und es uird nur der nächste Sektor von der Diskette in den 
Sektorbuffer geladen. 

Ilit der RDSEC-Rout i ne ist auch das Lesen von Disk-relativ 
adressierten Sektoren möglich* Dazu muß das Bit 1 von CFCB) 
gesetzt sein. In diesem Fall werden die NEXT und EQF-Felder 
des FCB nicht File-relativ sondern Disk-relativ 
interprstiert. 

Uird der FCB mit B=0 eröffnet, ist für die weiteren 
Zugriffe CFCB+5) unwichtig. CFCB+10) und CFCB+11) geben 
jeweils die Nummer des nächsten Sektors an. 


r & # * S. M 
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Beispiel: 



LD 

DE,FCB 


LD 

HL,BUFFER 


LD 

B, 128 


CALL 

OPEN 


JR 

NZ,FEHLER 


LD 

HL,RECBUF 


CALL 

RDSEC 


JR 

NZ,FEHLER 

FCB 

* • t 

DEFH 

* TEST/TXT 


DEFB 

0DH 


ORG 

FCB+32 

BUFFER 

DEFS 

256 

RECBUF 

DEFS 

128 


; File eröffnen 
; logische Recordlänge= 128 
; Fehler» —> 

; logischen Record -> (HL) 

; Feh1er, — > 

; Sektorbuffer für OPEN 
; Buffer für log. Record 
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$********************************************************** 
* * 

* URSEC : Sektor von File lesen 4t 


* 

* 

* 

4t 

* 

* 

* 

* 

* 

4t 

* 

4t 

4t 

* 


E : CE39H * 

R : AF * 

I : DE = Zeiger auf eröffneten FCB * 

B < > 0 beim Eröffnen per OPEH: * 

HL * 2eiger auf Buffer der Länge B (OPEN) * 
(HL)...(HL+B-1) : zu schreibender Record * 

Andernfal1s: * 

zu schreibender Sektor im Sektorbuffer 4t 

(HL bei OPEN) 4t 

0:2=0: kein Fehler * 

2=1: Fehler * * 

A : Feh1ernummer * 

* 


**********************************************************4: 


Funktion: 

Beim Schreiben von Sektoren muß genau wie beim Lesen 
zuisehen Sektoroperationen und 1ogisehen Recordoperationen 
unterschieden werden. Ist B beim öffnen des Files mit OPEN 
0, wird der Inhalt des Buffer, dessen Adresse beim OPEN in 
HL angegeben wird, auf das File geschrieben (256 Bytes). 
Andernfalls werden die B Bytes , die in dem Speicherbereich, 
auf den HL beim Aufruf von URSEC weist, in den Sektorbuffer 
übertragen, und - falls erforderlich - dieser auf das File 
geschrieben. 

Ist das Bit 0 von (FCB) gesetzt, wird der Sektor 
1esegeschützt geschrieben. Derartig geschriebene Sektoren 
ergeben beim Lesen einen Fehler 6. Das DOS schreibt den 
Direktory 1esegeschützt. 

Uie bei RDSEC ist auch hier Disk-relatives Schreiben 
mög1ich. - ■ . 


Beispiel: 



LD 

DE,FCB 

* 

t 

File eröffnen 


LD 

HL,BUFFER 




LD 

B, 0 

I 

Sektoroperation 


CALL 

OPEN 




JR 

NZ,FEHLER 

I 

Fehler ? —> 


LD 

HL,DATEN 

* 

Sektorbuffer füllen 


LD 

DE,BUFFER 




LD 

BC,256 




LDIR 





LD 

DE,FCB 

* 

Sektorbuffer schreiben 


CALL 

URSEC 




JR 

NZ,FEHLER 

* 

Fehler, —> 

FCB 

■* *■ * 

DEFH 

* TEST/TXT:0 * 




DEFB 

0DH 




ORG 

FCB+32 



BUFFER 

DEFS 

256 

* 

Sektorbuffer für OPEN 

DATEN 

DEFS 

256 

* 

t 

Speicherbereich in dem 




* 

t 

Daten stehen 
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1.3.4 Positionierung des NEXT 


Hit den folgenden Routinen kann das NEXT-Feld im FCB 
geändert uerden und damit auf einen speziellen Sektor im 

File zugegriffen werden, ohne das File vom Beginn an 

sequentiel1 lesen. 

44444444444444444444444444444444444444444444444444444444444 
* * 

* POS0 : NEXT-Feld auf Sektor 0 positionieren ♦ 

* * 

* E : CE3FH * 

* R : AF * 

* I : DE - Seiger auf eröffneten FCB * 

* 0 : Z = 0 : kein Fehler * 

* Z = 1 : Fehler - ♦ 

* A : Fehlernummer ♦ 

4 4 

„ , ■, ~ 44444444444444444444444444444444444444444444444444444444444 

Funktion: 

Das NEXT-Feld im FCB wird auf den Fileanfang gesetzt. Ist 
im Buffer ein Sektor, der noch auf die Diskette geschrieben 
werden muß, wird dieser zunächst auf die Diskette 
geschrieben. 

Beispiel: 


LD DE,FCB 

CALL POS0 

CALL RDSEC 


Zeiger auf geöffneten FCB 
FCB auf Sektor 0 pos. 
Sektor 0 laden 


E 

R 

I 


* POSBC 

* 

* 

* 

* 

* 

* 

4 
4 
4 


NEXT-Feld im FCB auf BC positionieren 


* ■* 


44444444444444444444444444444444444444444444444444444444444 
4 4 

4c 
* 

* 
* 
4t 
4; 
4 : 
4c 
4 
4 

44444444444444444444444444444444444444444444444444444444444 


CE42H 
AF 

DE » Zeiger auf eröffneten FCB 
BC - logische Recordnummer 
0:2-0: kein Fehler 
2 - 1 : Fehler 

A : Fehlernummer 


Funktion: 


Das NEXT-Feld im FCB wird gleich BC 4 logische Recordlänge 
gesetzt. Hit dem nächsten Filezugriff wird also der 
logische Record BC angesprochen. Ansonsten gleiche Funktion 
wie POS0. 


r 
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Beispiel: 


LD 

DE,FCB 

LD 

BC, 17 

CALL 

POS0 

LD 

HL,LOGBUF 

CALL 

RDSEC 


; Zeiger auf geöffneten FCB 
; Recordnummer = 17 
; FCB auf Record 17 pos. 

; Zeiger auf log. RecBuffer 
; Record 17 laden 


* 

* POSDEC : NEXT— Feld um einen Record decrementieren 

* E : CE45H 

* R : AF 

* I : DE = Zeiger auf eröffneten FCB 

* 0 : Z - 0 : kein Fehler 

* Z - 1 : Feh 1 er .. 

* A : Fehlernummer 


Funktion: 

Das NEXT-Fe1d im FCB wird 
erniedrigt. Ansonsten gleiche 

Beispiel: 


LD 

DE,FCB 

LD 

HL,RECBUF 

CALL 

RDSEC 

CALL 

POSDEC 

CALL 

RDSEC 


um die logische Recordlänge 
Funktion uie POS0. 


Zeiger auf geöffneten FCB 
Record-Buffer 
log. Record lesen 
FCB auf einen Record zur. 
gleichen Record noch mal 


* 

* POSEOF : NEXT-Feld auf EOF positionieren 

* E : CE48H 

* R : AF 

* I : DE - Zeiger auf eröffneten FCB 

* 0 : Z = 0 kein Fehler 

* Z = 1 : Fehler 

* A : Fehlernummer 


Funktion: 

Das NEXT-Feld im FCB uird auf das Fileende gesetzt. 
Ansonsten siehe POS0. 

Beispiel: 

LD DE,FCB 

CALL POS0 

CALL URSEC 


; Zeiger auf geöffneten FCB 
; FCB auf EOF pos. 

: File erweitern 
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*********************************************************** 

* * 

* POSRBA : NEXT-Feld auf HLC positionieren * 

* * 

* E : CE4EH * 

* R : AF * 

* I : DE - Zeiger auf eröffneten FCB * 

* HL = HEXT CH = NSB, L = LSB) * 

* C = NEXT Byte * 

* 0 : Z = 0 : kein Fehler * 

* Z = 1 : Fehler * 

* A : Fehlernummer ♦ 

* * 
*********************************************************** 

Funktion: 

Das NEXT-Feld im FCB wird auf HL und C gesetzt. HL gibt die 
Sektornummer an und C die Position im Record. Funktion 
sonst wie POS0. 


Beispiel: 


LD 

DE,FCB 

LD 

HL, 28 

LD 

C, 80H 

CALL 

POS0 

LD 

HL,SECBUF 

CALL 

RDSEC 


, 1 1 »+ „ J * . ^ 1 * t V V ' 1 * fl ^ Jü I Jl MJmt 

; Zeiger auf geöffneten FCB 
; Sektornummer = 28 
; Byte = 128 
; FCB auf Sektor 0 pos. 

; logischen Record lesen 
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l 


1.3.5 File Laden , Starten, Löschen 


*********************************************************** 


t 


* LOAD 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


E 

R 

1 


0 


File im Loaderformat laden 

CE30H 

AF 

DE = Zeiger auf Filenamen 

(DE) = 1. Zeichen des Filenamen 

(DE+n) = 0DH 

Z = 0 : kein Fehler 

Z = 1 : Fehler ^ _ 

A : Fehlernummer 


* 


*********************************************************** 


Funktion: 


Ein File im Loaderformat wird geladen. Die 

Speicheradressen, an die es geladen wird, sind im 
Loaderformat entha1ten, das folgendermaßen aufgebaut ist: 

1. Datenblock: 

a. Kennung = 01H 

b. Anzahl der Datenbytes +2(0-2= 256 - 258) 

c. Ladeadresse CLSB/HSB) 

d. Datenbytes 

2. Startadressenb1ock: 

^ n. v ' ' > ^ ^ _ I „ * r , V 1, ( n, " *: - l ^ 11 ^ v 

a. Kennung = 02H 

b. Anzahl der folgenden Byte (immer 02H) 

c. Startadresse (LSB/HSB) 


3. Kommentarb1ock 


a. Kennung = 0 oder 03H-FFH 

b. Anzahl der folgenden Kommentarbytes (0 = 256) 

c. Kommentarbytes 

Beispiel: 


CHD”U DEtlO»0>300>0” 


1 . Datenblock: 01 

00 

00 

00 

F3 

AF . . 

(250 

Bytes) .. 14 

44 

2. Datenblock: 01 

31 

FE 

00 

DF 

DA . . 

( 43 

Bytes) .. 69 

63 

Startadrb1ock: 02 

02 

00 

00 







Beispiel: 


LD DE,FCB 

CALL LOAD 


Zeiger auf Filename 
File 1aden 


FCB 


DEFS 


'DEMO' 
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DEFB 13 

; Dies provoziert übrigens einen Fehler 36 


* 

* RUN 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


: File im Loaderformat laden und starten 

E : CE33H 
R : AF 

I : DE - Seiger auf Filenamen 

(DE) = 1. Zeichen des Filenamen 
(DE+n) - 0DH 
0 : Z = 0 : kein Fehler 
Z = 1 : Fehler 

A : Fehlernummer 


Funktion: 

Ein File im Loaderformat wird geladen und gestartet. 

Beispiel: 

LD DE,FCB 

CALL RUN 

* * * 

FCB DEFI1 'C0LASH/CI1D' 

DEFB 13 


ft********************************************************* 

* 

* KILL : File löschen 

* ^ 

* E : CE2CH 

* R : AF 

* I : DE = Zeiger auf Filenamen 

* (DE) - 1. Zeichen des Filenamen 

* C DE + n ) = 0DH . 

* 0 : Z = 0 : kein Fehler 

* Z = 1 : Fehler 

* A : Fehlernummer 

* 


; Zeiger auf Filenamen 
; File laden und starten 


Funktion: 

Das File, dessen Namen im FCB steht, wird gelöscht. 
Beispiel: 


LD 

DE,FCB 

; Zeiger auf Filenamen 

CALL 

KILL 

; File löschen 

JP 

NZ,FEHLER 

; Fehler ? --> 

* * * 

DEFÜ 

,TEST' 


DEFB 

13 
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1.3.7 Beispiele zum Diskettenbetrieb 


Das erste 
beiiebigen 
abgefragt > 
und auf den 


Beispie1programm ermöglicht 
Files auf den Bildschirm, 
das File eröffnet und dann 
Bildschirm ausgegeben. 


die Ausgabe eines 
Der Filename wird 
zeichenweise gelesen 


100 


1 10 

; * 



* 

120 

;* BEISPIEL 


* 

130 

* * 

$ * 



* 

140 

;* LESEN EINES 

FILES 

« 

150 

; * 



* 

160 

; * CC) 

1985 LUIDGER RÖCKRATH * 

170 

; * 



* 

180 

;*************#******************************* 

190 

1 




200 

OPEN 

EQU 

0CE24H ; 

FILE OEFFNEN 

210 

RDBYTE 

EQU 

0013H ; 

BYTE LESEN 

220 

INBUFF 

EQU 

05D9H ; 

EINGABE EINER ZEILE 

230 

PRINTT 

EQU 

2B75H ; 

TEXT AUSGEBEN 

240 

OUTCH 

EQU 

0033H ; 

ZEICHEN AUSGEBEN 

250 

START 

LD 

HL,TEXT ; 

»FILENAHE 7» AUSGEBEN 

260 


CALL 

PRINTT 


270 


LD 

HL,FCB ; 

FILENAHE IN FCB 

280 


LD 

B > 20 


290 


CALL 

INBUFF ; 

EINGEBEN 

300 


JR 

C,START ; 

BREAK —> 

310 


EX 

DE,HL ; 

ZEIGER AUF FCB NACH DE 

320 


LD 

HL,BUFFER 


330 


CALL 

OPEN 

FILE EROEFFNEN 

340 


JR 

NZ,FEHLER 

; FEHLER —> 

350 

LOOP 

CALL 

RDBYTE ; 

BYTE LESEN 

360 


JR 

NZ,FEHLER 

; FEHLER —> 

370 


PUSH 

DE ; 

FCB-ADR. RETTEN 

380 


CALL 

OUTCH ; 

AUSGEBEN 

390 


POP 

DE 


400 

r * f 

JR 

LOOP ; 

UEITER * - i *• *■ *»*"»» 

410 

ENDE 

CP 

28 ; 

ENDE DES FILES 

420 


JR 

Z,START ; 

JA, NAECHSSTES FILE 

430 

FEHLER 

LD 

HL,FEHMEL 

; FEHLERHELDUNG AUSGEBEN 

440 


CALL 

PRINTT 


450 


JR 

START ; 

NEU BEGINN 

460 


# 

t 



470 


; TEXTE 


480 


f 



490 

TEXT 

DEFH 

’FILENAtlE 

o » 

* 

500 


DEFB 

0 


510 

FEHHEL 

DEFtl 

* DOSFEHLER t* 

520 


DEFB 

13 


530 


DEFB 

0 


540 


f 



550 


; BUFFER 


560 


* 

f 



570 

FCB 

DEFS 

32 


580 

BUFFER 

DEFS 

256 


590 


END 

START 
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Folgendes Beispie1 demonstriert den disk-re1 at iven Zugriff 
auf einzelne Sektoren. Die Sektornummer uird abgefragt und 
in das NEXT-Feld des FCB eingetragen. Weiterhin ist 
wichtig» daß im FCB der EOF auf den Wert 65535 gesetzt uird 
und das Bit für di sk-re 1 at i ven Zugr i f f gesetzt wird. 

Der ge1esene Sektor wird in 16 Zeilen a 16 Spa 1ten auf dem 
Bi1dschirm ausgegeben. Der Direktory beginnt im Sektor 360. 


100 

;********************************************* 

1 10 

; * 



* 1 

120 

;* BEISPIEL 


* 

130 

; * 



* 

140 

;* DISKRELATIVEN 

SEKTOR LESEN * ... 1 

150 

; * 



* 1 

160 

; * (C3 

1985 LUIDGER RÖCKRATH > ■ • . ■ t .4 * K* .'i 

170 

; * 



* 

180 

;********************************************* 

190 

■ 



1 

200 

RDSEC 

EQU 

0CE36H 

SEKTOR LESEN j 

210 

INBUFF 

EQU 

05D9H 

EINGABE IM BUFFER ' 

220 

DECLNO 

EQU 

1E4FH 

STRING IN ZAHL . 

230 

PRINTT 

EQU 

2B75H 

STRING AUSGEBEN 1 

240 

OUTCH 

EQU 

0033H 

ZEICHEN AUSGEBEN . 

250 

START 

LD 

HL,TEXT1 

; FRAGE AUSGEBEN 1 

260 


CALL 

PRINTT 

' i 

270 


LD 

HL,BUFFER j 

280 


LD 

3,5 

1 

290 


CALL 

INBUFF 

ANTWORT LESEN | 

300 


JR 

C,START 

BREAK —> i 

310 


CALL 

DECLNO 

SEKTORNR. DEC. | 

320 


LD 

CFCB+10) 


330 


LD 

DE,FCB 

»DE ; IN NEXT LSB/tlSB | 

'340 


CALL 

RDSEC 

SEKTOR LESEN ' . .. ....... .. , 

350 


JR 

N2,FEHLER ; FEHLER» —> 

360 


* 

I 


1 

370 


; SEKTOR 

AUSGEBEN 

380 


f 



390 

OK 

LD 

HL,BUFFER 

400 


LD 

BC, 16 

B = 0 <256>, C - 16 ZEICHEN / 

ZEILE 




410 

LOOP 

LD 

A » <HL) 

ZEICHEN LADEN • •/. 

420 


CP 

f J 


430 


INC 

HL 


440 


JR 

NC,LI 

>=> > —> 

450 


LD 

A , * * 

STEUERCODES DURCH » ' ERS. 

460 

LI 

CALL 

OUTCH 

ZEICHEN AUSGEBEN 

470 


DEC 

C 

16 ZEICHEN AUSGEGEBEN 

480 


JR 

NZ,L2 

NEIN —> 

490 


LD 

C, 16 


500 


LD 

A,0DH 

CR AUSGEBEN 

510 


CALL 

OUTCH 


520 

L2 

DJNZ 

LOOP 

WEITER 

530 


JP 

START 


540 


> 



550 


; FEHLERBEHANDLUNG 

560 


) 



570 

FEHLER 

CP 

6 

; DIR SEKTOR 

580 


JR 

o 

* 

N 

; JA —> 
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590 


LD 

A, 

600 


CALL 

OUTCH 

610 


JP 

START 

620 


* 

* 


630 


; TEXTE 


640 


1 


650 

TEXT 1 

DEF11 

* SEKTOR 

660 


DEFB 

0 

670 

FCB 

DEFB 

82H 

680 


DEFB 

0 

690 


DEFB 

0 

700 


DEFU 

BUFFER 

710 


DEFB 

0 

720 


DEFB 

0 

730 


DEFB 

0 

740 


DEFB 

0 

750 


DEFB 

0 

760 


DEFU 

0 

770 


DEFU 

0FFFFH 

780 


DEFB 

0 

790 


DEFB 

0 

800 


DEFB 

0 

810 


DEFB 

0 

820 


DEFB 

0 

830 


DEFB 

0 

840 


DEFB 

0 

850 


DEFB 

0 

860 


DEFB 

0 

870 


DEFB 

0 

880 


DEFB 

0 

890 


DEFB 

0 

900 


DEFB 

0 

910 


DEFB 

0 

920 


DEFB 

0 

930 


DEFB 

0 

940 


DEFB 

0 

950 


DEFB 

0 

960 

BUFFER 

EQU 

% 

970 


END 

START 


; ANSONSTEN NEUBEGINN 

IN LAUFUERK 0 ?' 

; FILE OFFEN, DISK RELATIV 

; BUFFERADRESSE 

; NEXT 

; EOF = 65535 
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Das nächste Beispie1 zei gt die Anuendung der 
Positionierungsroutinen. Insbesonders beim Arbeiten mit 
logischen Records können diese Routinen sinnvoll eingesetzt 
uerden. Nach dem öffnen des Files mit der logischen 
Recordlänge von 100» uerden zunächst 10 logische Records» 
die jeueils nur aus der Nummer und Leerzeichen bestehen, 
auf das File geschrieben und dieses uieder geschlossen* 
Danach uird es uieder geöffnet und einzelne Records unter 
Zuhi1fenahme der verschiedenen Positionierungsroutinen 
gelesen und auf dem Bildschirm ausgegeben. 

Hier noch mal ein überblick über die verschiedenen 
Positionierungsroutinen 

Folgende Tabelle gibt an, auf uelchen logischen Record nach 
Aufruf der entsprechenden Positionierungsroutine 
zugegriffen uerden kann und uelchen Uert das NEXT-Feld im. 
FCB nachher hat. 

Alleinige Änderung des FCB beuirkt nicht das gleiche uie 
die POSx-Ca11s, da diese gegebenenfalls den momentanen 
Buffer auf Diskette schreiben. 



! 

! 

Log. Record. Nr. 

NEXT 

«SB 

LSB 

BYTE 

POS0 

♦ 

• 

0 

00 

00 

00 

POSDEC 

t 

“1 

- 1 og 

. Rec. 

Länge 


POSBC ! BC BC * log. Rec. Länge 

POSRBA ! RBA / log. Rec.L. H L C 

POSEOF t hinter letzten = EOF 


100 : ********************************************* 


110 ;* * 

'120 ;* BEISPIEL * - 4 -’ " \ ^ 

130;* 1 * 

140 ;* TEST ZUR POSITIONIERUNG * 

150 ;* * 

160 ;* CC> 1985 LUIDGER RÖCKRATH * 

179 ;* * 


180 ;********************************************* 
190 ; 


200 

IN IT 

EQU 

0CE20H 

; FILE OEFFNEN 

210 

OPEN 

EQU 

0CE24H 

; FILE OEFFNEN 

220 

URSEC 

EQU 

0CE39H 

; REC. SCHREIBEN 

230 

RDSEC 

EQU 

0CE36H 

; REC. LESEN 

240 

POS0 

EQU 

0CE3FH 

; POS AUF SEKTOR 0 

250 

POSBC 

EQU 

0CE42H 

; POS AUF LOG. REC BC 

260 

POSDEC 

EQU 

0CE45H 

; POS EINEN SEC. ZURUECK 

270 

POSEOF 

EQU 

0CE48H 

; POS AUF EOF 

280 

POSRBA 

EQU 

0CE4EH 

; NEXT = HLC 

290 

CLOSE 

EQU 

0CE28H 

; FILE SCHLIESSEN 

300 

310 

OUTCH 

t 

EQU 

0033H 

; ZEICHEN AUSGEBEN 

320 

START 

LD 

B, 100 

; LOG. RECLAENGE = 100 

330 


LD 

DE,FCB 

; ZEIGER AUF FCB NACH DE 

340 


LD 

HL,BUFFER 

350 


CALL 

IN IT 

; FILE EROEFFNEN 

360 


JR 

NZ,FEHLER ; FEHLER —> 
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370 


LD 

HL * LOGBUF 

; LOGBUF MIT BLANK FUELLEN 

380 


PUSH 

HL 


390 

FLOOP 

LD 

(HL),' ' 

; BLANK IN BUFFER 

400 


INC 

HL 


410 


DJNZ 

FLOOP ; 

100 UAL 

420 


POP 

HL 


430 


LD 

B,*0' ; 

10 SEC. SCHREIBEN 

440 

SLOOP 

LD 

C HL>,B ; 

REC.NR IN BUFFER 

450 


CALL 

URSEC ; 

LOG. SEKTOR SCHREIBEN 

460 


JR 

NZ,FEHLER 


470 


INC 

B ; 

REC.NR. + 1 

480 


LD 

A,B 

10 GESCHRIEBEN 

490 


CP 

»0 » + 10 


500 


JR 

NZ,SLOOP ; 

NEIN, UEITER 

510 


CALL 

CLOSE ; 

FILE SCHLIESSEN 

520 


JR 

NZ,FEHLER 

; FEHLER —> 

530 


LD 

B,100 ; 

LOG. RECLAENGE = 100 

540 


LD 

DE , FCB ; 

ZEIGER AUF FCB NACH DE 

550 


LD 

HL,BUFFER 


560 


CALL 

OPEN ; 

FILE EROEFFNEN . 

570 


JR 

NZ,FEHLER 

; FEHLER —> 

580 


LD 

HL,LOGBUF 


590 


CALL 

RDSEC ; 

1 . REC LESEN -m- * 

600 


CALL 

PRBUF ; 

UND AUSGEBEN 

610 


LD 

BC , 8 ; 

AUF 8. REC POS 

620 


CALL 

POSBC 


630 


JR 

NZ,FEHLER 

; FEHLER —> 

640 


CALL 

RDSEC ; 

UND LESEN 

650 


JR 

NZ,FEHLER 

; FEHLER —> 

660 


CALL 

PRBUF 


670 


CALL 

POSDEC ; 

REC 8 NOCH HAL 

680 


JR 

NZ,FEHLER 

; FEHLER —> 

690 


CALL 

RDSEC ; 

LESEN 

700 


JR 

NZ,FEHLER 

; FEHLER —> 

710 


CALL 

PRBUF 


720 


LD 

HL, 1 ; 

AUF BYTE 500 

730 


LD 

C,500-256 


740 


CALL 

POSRBA ; 

POS 

750 


JR 

NZ,FEHLER 

; FEHLER —> 

760 


LD 

HL,LOGBUF 


770 


CALL 

RDSEC ; 

REC 5 LESEN 

780 


JR 

NZ,FEHLER 

; FEHLER —> 

790 


CALL 

PRBUF 


800 


CALL 

POSEOF ; 

AUF FILEENDE POS. 

810 


JR 

NZ,FEHLER 

; FEHLER —> 

820 


CALL 

RDSEC 

; HINTER FILEENDE LESEN640 

634 



) 

GIBT IiinER FEHLER ! 

830 


JR 

NZ,FEHLER 

; FEHLER —> 

840 


RET 



850 


# 

t 



860 

FEHLER 

LD 

A ß O > 

r% y * 1 

*?* FUER FEHLER AUSGEBEN 

870 


JP 

OUTCH 


880 


* 

* 



890 

PRBUF 

LD 

HL,LOGBUF 

; BUFFER AUSGEBEN 

900 


PUSH 

HL ; 

LOGBUF RETTEN 

910 


LD 

B,100 ; 

LAENGE = 100 

920 

PLOOP 

LD 

A, (HL) ; 

ZEICHEN LADEN 

930 


INC 

HL 


940 


PUSH 

DE ; 

FCB-ADRESSE RETTEN 

950 


CALL 

OUTCH ; 

UND AUSGEBEN 
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960 


POP 

DE 

970 


DJNZ 

PLOOP 

980 


POP 

HL 

990 


RET 


1000 


t 


1010 


; BUFFER 

1029 


i 


1030 

FCB 

DEFIt 

' TEST 

1040 


DEFB 

13 

1050 


DEFS 

27 

1060 

BUFFER 

DEFS 

256 

1070 

LOGBUF 

DEFS 

100 

1080 


END 

START 


FCB-ADRESSE ZURUECK 
UEITER BIS 100 
LOGBUF ZURUECK 


FILENAHE 
CR 

27 + 5 = 32 

SEKTOTBUFFER 

BUFFER FUER LOG. RECORD 
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Das letzte Beispiel zeigt ein Basicprogramm zur Reparatur 
eines zerstörten HIT-Sektors. Der HIT-Sektor (der zueite 
des Direktory) enthält die Hashcodes aller Files. Wenn er 
zerstört ist» kann kein File mehr gelesen uerden. Denn er 
vollständig zerstört ist» hilft auch folgendes 
Basicprogramm erst» nachdem auf der Position 2 des 
HIT-Sektors der Hashcode des Directory (DIR/SYS) C4H 
eingetragen uurde, da sonst der Directory nicht gefunden 
uird. Das Unterprogramm ab Zeile 80 ermittelt den Hashcode 
eines Filenamens, der in A$ stehen muß. Dieser muß genau 11 
Zeichen lang sein, uobei Filename und -erweiterung jeweils 
mit Leerzeichen aufzufül1en sind. 

Die HIT-Sektor uird zunächst in das Feld HCl) eingelesen. 
Dann uerden alle ueiteren Direktory-Sektoren gelesen und 
die aktiven Einträge gesucht. Bei diesen muß noch zuischen 
FPDE's und FXDE's unterschieden uerden. Die Ersteinträge 
CFPDE’s) enthalten den Filenamen aus dem der Hashcode 
ermitte1t und in den HIT CH1CI)) eingetragen uerden kann . 
Alle folgende DIR-Einträge eines Files enthalten einen 
Bezug auf den vorangehenden Eintrag, aus dem der Hashcode 
kopiert uerden kann. 

Ist der gesamte HIT in H1CI) neu generiert, muß er wieder 
in den DIR/SYS auf Diskette geschrieben uerden. Da der 
Direktory 1esegeschützt auf der Diskette stehen muß» uird 
zuvor durch den POKE in den FCB von File 1 CZeile 480) 
erreicht, das der Sehreibbefeh 1 einen Sektor 1esegeschützt 
schreibt. 


10 CLEAR 1000 

20 DEFIHT A—2:DIMHIC255) 

30 Din HC255),HlC255):ON ERROR GOTO 580 
40 0PEN"R”,1,"DIR/SYS” 

50 FIELD 1,128 AS A$,128 AS B$ 

60 DEF FN EXO (A,B) = CA OR B) AND NOT CA AND B) 

70 GOTO 170 

80 REH UNTERPROGRAnM HASHCODE 
90 HO0 

100 FOR 11=1 TO 11 

110 HC = FN EXO CASCCnID$CF$,II»1))>HC) .. 

120 HC = HC * 2 

130 IF HC>255 THEN HC=HC-255 

140 NEXT 

150 IF HC=0 THEN HC=1 
160 RETURN 

170 REH HAUPTPROGRAHH 
180 GET 1,2 

190 FOR 1=0 TO 255:H1CI)=0:NEXT 

200 FOR 1=0 TO 127 

210 HCl)=ASCCHID$CA$,1 + 1,1)) 

220 NEXT 

230 FOR 1=0 TO 127 

240 HC I + 128) =ASCCtlID$CB$,1 + 1,1)) 

250 NEXT 

260 FIELD 1,32 AS F$C1),32 AS F$C2),32 AS F$C3),32 AS 
F$ C 4),32 AS F$C5),32 AS F$C6),32 AS F$C?),32 AS F$C8) 

270 H1C 31)=HC 31) 

280 FOR 1=3 TO 15 

290 GET 1,1 ! 

300 FOR J=1 TO 8 
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310 F$=niD$<F$<: J) ,6,1 1 ) 

320 IF ASCC F$( J ) ) AND &H10 THEN GOSUB 510 
330 NEXT 
340 NEXT 

350 FOR 1=0 TO 255 

360 IF HICI)OH(I) THEN PR I NT”H I T-Feh 1 er ” ; I 
370 NEXT 

380 FIELD 1,128 AS A$,128 AS B$ 

390 AA$=”” : BB$=”” 

400 FOR 1=0 TO 127 
410 AA$=AA$+CHR$CH1CI>> 

420 NEXT 

430 FOR 1=128 TO 255 
440 BB$=BB$+CHR$( H 1 C I ) > 

450 NEXT 

460 LSET A$=AA$ 

470 LSET B$=BB^ ■ * ■ >■ *•*; •( . >■■■ ~ * • .v/ii i-Hi*«’**» v 

480 POKE 23708,129 
490 PUT 1,2 
500 END 

510 IF ASC(F$(J)) AND &H80 THEN 570 

520 GOSUB 90 

530 K=CJ-1>*32+1-3 

540 Hl<IO=HC 

550 PRINTF$,K,HC 

560 RETURN 

570 K=ASCdlID$CF$CJ),2)):HC=H1CK):GOTO 530 
580 IF ERR=46 THEN RESUHE NEXT 
590 ON ERROR GOTO 0 
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1,3.8 Datum und Uhrzeit 


Datum und Uhrzeit werden automatisch per Interrupt 
aktualisiert. Sie können vom Basic aus mit TIMES abgefragt, 
aber nicht gesetzt werden. 

In folgenden Speicherzei len sind Datum und Uhrzeit 
abgelegt: 

4041H : Sekunde 
4042H : Hinute 
4043H : Stunde 
4044H : Jahr 

4045H : Monat 
4046H : Tag 

Mit POKE-Befehlen können Datum und Uhrzeit .gesetzt werden. 
Das DOS stellt folgende Routinen zur Umwandlung von Datum 
und Uhrzeit in einen String zur Verfügung: 

**$*;|^:|c;|:$**£:t;*:t:**$*$$££$:t;$$*******:t:$$****$***************** 

* * 

* CONTIM : Zeit in String der Form hh:mm:ss umwandeln # 

* * 

* ' E : CE6DH * 

* R : AF, BC, DE, HL * 

* I : HL = Zeiger auf Buffer (8 Bytes lang) # 

* 0 : HL = Zeiger hinter ss * 


* 

C HL—8) , 

C HL—7) 

= hh 

* 

CHL-5), 

C HL—4) 

= mm 

* 

(HL-2), 

CHL-1) 

= ss 


* 

Funktion: 


Die Zeit aus den Speicherzellen 4041H-4043H wird im Format 
hh:mm:ss in den * vom Benutzer definierten Buffer 
geschrieben. 

Beispiel: 


; Zeit ausgeben 
LD HL,BUFFER 

PUSH HL 

CALL CONTIM 

LD C HL),0 

POP HL 

CALL PRINTT 


Bufferzeiger 
retten 

Zeit in Buffer 
Bufferende markieren 
Bufferanfang zurück 
Buffer ausgeben 
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*********************************************************** 


* 



* 

* 

* 

CONDAT : 

Datum in String der Form tt.mm.jj umuandeln 

* 

* 

E : 

CE70H 


* 

R : 

AF, BC, DE, HL 


* 

I : 

HL = Zeiger auf Buffer (8 Bytes lang) 


* 

0 : 

HL = Zeiger hinter jj 


* 


CHL-8), CHL-7) = tt 


* 


CHL-5), CHL-4) = mm 


* 


C HL-2), CHL-1) = jj 


* 



* 


*********************************************************** 

Funktion: 

Das Datum aus den Speicherzellen 4044H-4046H wird im Format 
hh:mm:ss in den vom Benutzer definierten Buffer 
geschrieben. 

Beispie1: 


; Zeit ausgeben 
LD HL,BUFFER 

PUSH HL 

CALL CONDAT 

LD C HL ) , 0 

POP HL 

CALL PRINTT 


Bufferzeiger 
retten 

Datum in Buffer 
Buf ferende markieren 
Bufferanfang zurück 
Buffer ausgeben 
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Folgendes Beispielprogramm überträgt Datum und Uhrzeit in 
einen Buffer und gibt diesen bei jeder Änderung der Sekunde 
auf dem Bildschirm aus. 


100 ;********************************************* 
110 ;* * 
120 ;* BEISPIEL * 

130 ;* * 

140 ;* ZEIT ABFRAGEN UND AUSGEBEN * 

150 ;* * 


160 

; * CO 

1985 LU 

IDGER RÖCKRATH * 

170 

; * 


* 

180 

; ************* 


190 

200 

CONTIM 

EQU 

0CE6DH ; ZEIT IN BUFFER 

210 

CONDAT 

EQU 

0CE70H ; DATUM IN BUFFER 

220 

PRINTT 

EQU 

2B75H ; BUFFER AUSGEBEN 

230 

CURSOR 

EQU 

4020H ; CURSORADRESSE 

240 

250 

S.TART 

LD 

HL,4400H+40—18 

260 


LD 

(CURSOR),HL ; CURSOR SETZEN 

270 


LD 

HL,BUFFER ; DATUM 

280 


CALL 

CONDAT ; IN BUFFER 

290 


LD 

CHL),* * ; SPACE DAHINTER 

300 


INC 

HL 

310 


LD 

A,(BUFFER+16) ; SECEINER RETTEN 

320 


PUSH 

AF 

330 


CALL 

CONTIM ; ZEIT IN BUFFER 

340 


LD 

CHL),13 ; CR IN BUFER 

350 


INC 

HL 

360 


LD 

(HL),0 ; BUFFERENDE MARKIEREN 

370 


POP 

BC ; SECEINER NACH B 

380 


LD 

A,CBUFFER+16) ; NEUER SECEINER 

390 


CP 

B ; AENDERUNG 

400 


JR 

Z,START ; NEIN —> 

410 


LD 

HL,BUFFER 

420 


CALL 

PRINTT ; BUFFER AUSGEBEN 

430 


JR 

START 

440 

450 

BUFFER 

• 

DEFS 

17 

460 


END 

START 


±.*t> ■ 
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Teil 2 : Hilfsprogramme Anleitungen und Que11programme 


Die Que11programme, die folgen, sind für den COLASM 
(Kassetten- oder Diskettenversion) ausgelegt. Die 
ORG-Adressen sind so festge1egt, daß die Programm im 
höchsten Speieher des 32K-Systems residieren. Da der COLASM 
keine Assembler1istings mit Que11- und Haschinencode 
erste11en kann, wurden die Listings mit dem EDTASM unter 
GDOS mit einem Genie III s erste11t. Der QuellCode 
beginnend mit der Ze ilennummer kann aber auch auf einem 
Co1our-Genie mit COLASM verarbeitet werden, die Syntax des 
Quellcodes ist bei EDTASM und COLASM identisch. Alle 
Programme außer COLBAS (zu lang) wurden auch mit dem COLASM 
assembliert und erzeugten dort einen einwandfrei 
lauffähigen Objektcode. Mnemonics, die vom COLASM 
fehlerhaft assemb1iert werden (ADD HL,SP), wurden durch 
DEFB ersetzt. 


Die Kassette bzu. Diskette mit allen Quel1programme (inkl. 
der Beispiele aus Teil 1) ist natürlich direkt vom COLASM 
zu verarbeiten. Alle Quel1programme sind dort als 
Basieprogramme aufgezeichnet, so wie es der COLASM fordert. 

Her Über keinen Assembler verfügt (Der Assemb1er COLASM 
kann von uns für DM 69,— <auf Kassette) bzu. 95,— (auf 
Diskette) erworben werden), kann auch mit einem Monitor (z. 
B. CBUG) die Programme direkt in den Speieher schreiben. 
Uird dabei die Startadresse (ORG> geändert werden, muß bei 
allen Befehlen, die davon beeinf1ußt werden, die Adresse 
entsprechend geändert werden. 

Auf der Quel1programmkassette bzu -diskette für DM 99,— DM 
sind folgende Sourcen aufgezeichnet: 


B1/ASM 

B2/ASM 

B3/ASM 

B4/ASM 

B5/ASM 

B6/ASM 

B7/ASM 

B8/ASM 

B9/ASM 

VIDEO/ASM 

SEDIT/ASM 

COLBAS/ASM (auf 

ARRAYD/ASM (nur 

ARRAY/ASM (nur 

COPBIT/ASM 

SAVETAPE/ASM (nur 


I 

i 

i 

i 

i 

Diskette nur Teile) 
Diskette) 

Kassette) 

Diskette) 


Format der Diskette: 40 Spur, einseitig, doppelte Dichte 


Auf der Kassette sind die genannten Quel1programme in 
dieser Reihenfo1ge hintereinander aufgezeichnet. 
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2.2*1 Bi 1dschirmeditor SEDIT 


Das kurze Maschinenprogramm SEDIT ermöglicht volles 
Bildschirmeditieren von Basicprogrammen, ähnlich wie bei 
den CBM-Rechnern. SEDIT vereinigt große Effizienz mit 
einfacher Bedienung» da komplizierte Manipulationen mit 
uenigen einfachen und se1bstverstand1ichen Grundfunktionen 
durchgef ührt werden können. 


Funktion: 


SEDIT wird durch Verändern des Displayvektors an den 
Basicinterpreter angebunden. Der Aufruf der OUTCH-Routine 
in der Hauptschleife zur Ausgabe des Promptzeichen kann so 
erkannt und unterdrückt werden. Stattdessen wird der 
Bi1dschirmeditor aufgerufen und beim Drücken von <ENTER> 
diejenige 1ogisehe Zeile, in der sich der Cursor befindet, 
im I/O-Buffer an den Basicinterpreter übergeben. 

Außerdem muß die OUTCH-Routine angezapft werden, um die 
Funktion des CR zu verändern. CR C=0DH) bewirkt 
normalerweise bei der Ausgabe per OUTCH das Positionieren 
des Cursors auf den Anfang der folgenden Zeile und das 
Löschen dieser Zeile. Unter SEDIT wird vor der 
Positionierung der Rest der Zei1e, in der sich der Cursor 
befindet, ge1Öscht und das Ende der Zei1e durch ein 80H 
CGrafikspace, unsichtbar} markiert. Die folgende Zei1e, auf 
deren Anfang der Cursor positioniert wird, wird nicht 
verändert. 

Durch die Markierung des Ende jeder 1ogisehen Zei1e ist die 
Verarbeitung von beliebig langen Zeilen durch SEDIT 
mög1ich. Die Markierungen werden beim Sero11en automatisch 
mitgenommen und durch SEDIT beim Einfügen, Löschen, .. . 
richtig modifiziert» wenn dies notwendig ist. 

Der CBM-Bi1dschirmeditor arbeitet nicht mit solchen 
Markierung sondern mit Bitmasken, die angeben, ob 
aufeinanderfo1gende Bi 1dschirmzeilen zusammengehören. Da 
diese Bitmasken bei jedem Scrol1 verändert werden müssen, 
verbat sich dieses Vorgehen beim Co1 out—G enie, wenn eine 
vollige Neuprogrammierung der OUTCH-Routine vermieden 
werden sol1. Außerdem ermöglicht das Konzept mit den 
Markierungen interessante Mög1ichkeiten zum Editieren, wie 
z. B. die Verknüpfung zweier Zeilen. 
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Bo arbeiten Sie mit SEDITs 


SobaId SEDIT geladen und initialisiert ist» erscheint 
der neue Cursor: ein blinkendes Quadrat. Dieser erscheint 
fortan immer, uenn im normalen Betrieb das Promptzeichen 
erscheinen würde, a1so nicht unter AUTO » SYSTEM, EDIT oder 
während der Programmausführung. 

Sobald der blinkende Cursor zu sehen ist, eröffnet sich 
Ihnen eine Vielfalt neuer Möglichkeiten das Programm zu 
verändern. Da der Cursor mit den vier Pfeiltasten 
zerstörungsfrei über den gesamten Bildschirm bewegt werden 
kann, wird auf der Cursorposition abwechse1nd das 
Cursorzeichen Cweißes Quadrat) und das Zeichen, welches 
sich auf dieser Position befand, angezeigt. 

Auf der Cursorposition kann der Bi1dschirminhalt nun 
einfach übersehrieben werden, aber alle Änderungen werden 
erst in den Speicher übernommen, wenn die ENTER-Taste 
gedrÜckt wird (s.u.). 

Mit den vier Pfeiltasten kann der Cursor bewegt werden. 
Stößt er bei Vor- oder Rückwärtsbewegung auf das Zeilenende 
oder den -anfang, geht er automatisch in die vorhergehende 
oder nachfolgende Zeile. Bei der Auf- und Abwärtsbewegung 
bleibt er am Bi1dschirmrand stehen. 

(Da < A > zur Cursorbewegung dient, ergibt <SHIFT>< A > 
fortan den Exponentiationspfei1.) 

Bei den im folgenden dargestellten Funktionen werden von 
SEDIT keine physika1isehen Zei1en Cd.h. die 64 Zeichen 
einer Bildschirmzei1e>„ sondern 1ogisehe Zei1en Cd.h. 
Zeilen» die zwar länger als 64 Zeichen sein können, aber 
sinngemäß zusammengehören.) verarbeitet. 


Anmerkung zu den Beispielen: 

__ : Cursorpos i t i on 

$ : Taste festha1ten bis Cursor auf gewuenschter Position 


I 






1 
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< SM IFT><4-> (DELETE) s 


Das Seichen auf der Cursorposition uird gelöscht; der 
Rest der logischen Zeile rückt nach. 

Beispiel: 


10 

FOR 

1=0 

TO 

10:FRI NT I:NEXT 

<SHIFT><**> 

10 

FOR 

1=0 

TO 

10:RINT I:NEXT 

< SH I FT >«• > 

10 

FOR 

1=0 

TO 

10:INT I:NEXT 

<SHIFT><«-> 

10 

FOR 

1=0 

TO 

10:NT I:NEXT 

<SH I FT >«-> 

10 

FOR 

1=0 

TO 

10:T I:NEXT 

< SH I FT >«-> 

10 

FOR 

1=0 

TO 

10: _I :NEXT 

<SH I FT ><*r> 

10 

FOR 

1=0 

TO 

10:1.: NEXT 

< SH I FT >«-> 

10 

FOR 

1=0 

TO 

10:iNEXT 

<SHIFT><«-> 

10 

FOR 

1=0 

TO 

10:NEXT 

- 


(Anstatt 8 mal die <SHIFT> und <^>-Taste zu drücken, können 
Sie diese Tasten auch einfach festha1ten, bis der 2. 
Doppelpunkt unter dem Cursor erscheint (s. u. 
Repeatfunktion). 


< SKI I FT X—► > 


< INSERT> s 


Nach einmaligem Drücken von <SHIFT><—*> befindet sich 
SEDIT im Insert-Hode, der erst bei Drücken eines 
nichtdruckenden Zeichen (z.B. Cursorbeuegung oder ENTER) 
uieder ver 1 assen uird. Im Insert-Ilode uird jedes druckende 
Zeichen an der Cursorposition eingefügt und der Rest der 
logischen Zeile uird ueitergeschoben. Auch bei 

überschreiten des Zei1enendes uird der Bildschirminha1t 
richtig korrigiert. 

h f *1 *if i * ? mik i., - V * * i * * n ; * * j- *'*>*?' 

Beispiel: 


10 A=11ID$(A$,2)_ 
10 A=MID$(A$ , 2)_ 
10 A=HID$(A$,2,1 
10 A=niD$(A$,2,1 ) 


<SHIFT><-*> 

< » > 

< 1 > 

<ENTER> 


(Durch das einmalige <SHIFT>< —▼> uird SEDIT 
Insert-rtodus versetzt. Alle druckenden (d.h. direkt 
Bi 1dschirm darstel1baren Zeichen) uerden jetzt 


Cursorposition eingefügt, 
verschoben. Durch Eingabe 


(uie z.B.: 
Beispiel die 


<ENTER>) 
Zeile in 


uird 

Ihrer 


und der Rest der Zei1 
eines nichtdruckenden 
dieser Hodus ver1assen 
neuen Form abgespeichert. 


i n den 
auf dem 
an der 
e uird 
Zeichen 
und im 


1 
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- Anleitung 


<SHIFT><@> <SKIP)a 


Vom Cursor an uird der Rest der 
ge 1öscht. 

Beisplel: 


logischen Zeile 


10 7 I,!*!*.!*!*! < SH I FT >< @> 

10 ? I,1*1 


f- ' * t ♦ ' < 


t >i i f l 1 






Vom Bildschirmende uird die erste freie Zeile zur 
bequemen Befeh1seingabe gesucht, und der Cursor dort 
positioniert. 




Uie gehabt.) 


< ENTER> = 


Der Inhalt derjenigen logischen Zeile, in der 
Cursor befindet, uird über den Tastaturtreiber 


Basicinterpreter übergeben 
Zeichen, uird ein LS-Error 
sich danach in der nächsten 


CIst die Zeile 1änger 
erkannt.)* Der Cursor 
logischen Zeile. 


sich der 
an den 
als 240 
bef i ndet 


L * *** 


* > \ kjf ' 
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Mit SEDIT können Programmodifikationen, die sonst 
kompliziert und langwierig sind, einfach und komfortabel 
erledigt werden. Hier sind einige wichtige Tricks 
zusammengetragen: 

1) Verschieben von Programmzeilen 

Hit SEDIT können einfach Zeilennummern geändert und 
somit Programmzeilen verschoben oder dupliziert werden. 

Beispiel: 

10 ? I”.ELEMENT"A CI) 20<ENTER > 

20 ? I".ELEMENT"A(I> • LIST<ENTER> 


25 Editieren nach Syntax-Fehlern 


Bei Syntax—Fehlern springt der TRS—80 automatisch in den 
2eileneditor. Unter SEDIT verläßt man diesen am besten 
sofort mit ENTER Cwas einen Ausdruck der Zeile bewirkt5 und 
editiert sie sodann mit SEDIT. 


3) Verknüpfen von Programmzeilen 


Zwei Programmzeilen können einfach zu einer einzigen 
verbunden werden: 

3.1) übersehreiben des letzten Zeichens der 1.1ogisehen 
Zei1e CIetzte Bi1dschirmspa1te5. Der Cursor befindet sich 
sodann in der 2.Zei1e und beide bi 1den nun eine 1ogisehe 
Zei1e. Hit Delete werden nun nur noch die überf1üssigen 
Leerzeichen und die 2.Zeilennummer entfernt. 

3.2) Löschen des 1etzten Zeichen Cs.o.) mit De1ete. Die 
2.Zei1e rückt dann nach. Ueiter wie bei 3.1). 




Beispiel: 


BiIdschirmrand—n 



10 FOR 1-0 

TO 

10 2 

r 


20 NEXT 


■ 


<SHIFTX*>> 

10 FOR 1=0 
0 NEXT 

TO 

10 \z 


$<■*•> 

10 FOR 1=0 
0 NEXT 

TO 

10_ ' 2 

i 


$<shift><4-> 

10 FOR 1=0 

TO 

1020 NEXT 


<SHIFT><^-> 

10 FOR 1=0 

TO 

100 next ; 


<SHIFT><«-> 

10 FOR 1=0 

TO 

10 JNEXT 


< : > 

10 FOR 1=0 

TO 

10:NEXT 

■ 

<ENTER> 


1 
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4 


4) Übernahme von Programmausdrucken 

Hit SEDIT können auch Ausdrucke von Programmen einfach 
in den Speicher übernommen werden: z.B. können 

Haschinenprogramme von einem kleinen Programm mit 
Zeilennummer und DATA-Anueisung auf den Bildschirm gedruckt 
werden und dann mit SEDIT in den Speicher übernommen 
werden. 

5) Wiederholung von ähnlichen Direktanueisungen 

I 

I 

Direktanueisungen können ohne aufuendige Tipperei bequem 
mit verschiedenen Parametern durchlaufen werden.. 


Kl ei nbuchstaben und Uml au'be 


% 

i 

Unter SEDIT ist eine vernünftige Verwendung der 
Kleinbuchstaben uie auf einer Schreibmaschine möglich. Ohne 
<SHIFT> oder <LOCK> groß und mit klein. Will man den 
Origina1modus uieder erreichen, so kann man dies mit <CTRL> 
und <0>. Die Umlaute werden durch Drücken der Tasten <CTRL> 
und < A > 0, U, a, o, u, s> erreicht Chintereinander> . Sie 
uerden auf dem Bildschirm richtig dargestellt und im 
Programmtext mit den üblichen Codes 5BH..5DH, 7BH..7EH 
abgelegt, so daß ohne ueiteres auf einem Drucker Listings 
vom Programm gemacht uerden können. Bei Eingaben im 
Programm können die Umlaute nicht genutzt uerden. 


I 
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Z u®Ämmfs>n -f assun g 


<-*> 

Cursor 

«-> 

Cursor 

<-f > 

Cursor 

<4>> 

Cursor 


Zeichen nach rechts 
Zeichen nach 1inks 
Zeile hoch 
Zei1e runter 


< SH I FT><4*> 

< SH I FT ><-?►> 


<SHIFT><@> 
<BREAK> 

< CLEAR> 

<ENTER> 


DELETE: 

INSERT: 


SKIP: 
CPID: 

CLEAR: 

RETURN: 


Zeichen auf Cursorposition 1öschen 
Rest der Zeile nach 1inks rücken. 

I nsert-Ilodus setzen. 

Folgende Zeichen an Cursorposition 
einf ügen 

Rest der Zeile löschen 
Cursor in erste freie Zeile vom 
Bi1dschirmende her positionieren 
Bildschirm löschen 

Zeile an Basicinterpreter übergeben. 


Kleinbuchstaben und Umlaute: 


<CTRL><0 > 

< CTRL >< A > 

< CTRL >< a > 

< CTRL ><0> 
<CTRL><o> 

< CTRLX U > 
<CTRL >< u > 

< CTRL ><s > 


Umschalten in Sehreibmaschinenmodus 
und zurück 

a 

S 

0 

ö 

U 

ü 

B 


Fi s » * -7 , f# 




] 


1 

J 


1 

J 

! 


1 

1 


» 
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00100 
001 10 
00120 
00130 
00140 


TRS-SO-SCREEN-EDTIQR ** 

COPYRIGHT B\ L.U1DDER R0ECIRATH 
\ AISEPSTR, 54 
4050 MDENCHEN 6 LADPACH 1 
JUNI 1*^81 




00150 

;BAS]C-UNTERPROGRAMME: 

002B 


00160 INCH 

EÜU 002BH 

; TASTATURABFPAGE 

0055 


00170 OUT CH 

EDU 0033H 

; ZEICHENAUSGABE 

51 BE 


00 ISO SCPOLL 

EQU 318EH 

; BILDSCHI PMSCFlOLL 

o 1C9 


00190 CLEAR 

EGU 01C9H 

;BILDSCHIRM LOESCHEN 

51 BF 


■30200 CLEOL 

EQU 31BFH 

;BIS ZEILENENDE LOESCHEN 

5165 


00210 CR 

EQU 3165H 

;CURSOR ZUM ZEILENANFANG 

5203 


00220 DOWN 

EQU 3203H 

;CURSOR EINE ZEILE RUNTER 

i A V B 


00230 PET 

EQU JA7PM 

;RUEQ SPRUNGADRESSE 

19A2 


00240 ERROR 

EQU 19A2H 

;BAS IC-ERRORROUTINE 

0060 4 

■ * i r 

00250 DELAY 

EQU 006OH 

; 2E3 TSCHLETFE 



00260 

;BA5IC-ZE16ER: 

^ n # " I i * 

4020 


00270 CURSOR 

EÜU 4020H 

;CUPS0RADRE5SE 

4016 


00280 > E YVEC 

EGU 4016H 

\\ EVBOAPD-TREIBEP-VEl TOR 

40 IE 


O0290 PIS7EC 

EQU 471EH 

; DISPL.AV-TREIBEP-VEf' TOP 

40A7 


00300 BUFFER 

EQU 40A7H 

;I/0-BUFFER ANFANG 

4056 


00310 LAST 

EQU 4036H 


F901 


00320 i E r'BD 

EÜU 0F871H 




00330 

;INTERNE SYMBOLE 


0080 


00340 MARI- ER 

EQU 90H 

;TRENNT LOGISCHE ZEILEN 

0400 


00350 EZEIT 

EQU 400H 


0080 


00360 RFREQU 

EQU 128 




00370 

; INITIALISIERUNG: 



0038Ö 

; A3EG 


BC50 


00390 

ORG 0BC5OH 




00400 

;SEDIT INITIALISIEREN 

BC50 

2A1E40 

00410 INIT 

LP HL, (DI5VEO 


BC53 

2??üBC 

70420 

LD <0UT+1‘,HL 


BC56 

216SBC 

00430 

LD HL,SEDIT 

;DISPLAYOEt TOP AENDEPN 

BC59 

221E40 

00440 

LD <DIS''EO,HL 

4. 1 4 i 4 * ’ * ^ 



00450 

! 


BC5C 

2A1640 

00460 

L.D HL, N EYVECJ 


BC5F 

21D2BE 

00470 

LD HL,NEW e/ 


BC62 

221640 

00480 

LD NEyVEO,HL 


BC65 

C3191A 

00490 

JP 1A19H 




00500 

■ 

t 




00510 

* 

% 




00520 

i HAUPTPROGRAMM 


BCöS 

2IDE00 

00530 SEDIT 

LD HL, 14 

;RUECiSPRUNGADRESSE 

BC 6 B 

59 

00540 

DEFB 3*H 




00550 

; = ADD HL,SP 

;DURCH STACTMANIPULATION 



00560 

; wird von CQLA3M falsch übersetzt 

BC 6 C 

5E 

00570 

LD E, (HU 

;ERMITTELN 

BC 6 D 


00580 

INC HL 


BC 6 E 

56 

00590 

LD D, (HU 


BC 6 F 

E5 

00600 

PUSH HL 


BC70 

217B1A 

00610 

LD HL,RET 


BC75 

DF 

00620 

RST 18H 

; =RET '’ 1 

BC74 

El 

00630 

POP HL 

• 

BC75 

2845 

00640 

JR Z,EDIT 

; JA 

BC77 

79 

00650 

LD A,C ! 

■.NORMALE AUSGABE 

BC78 

21E0BF 

00660 

LD HL,CTAB2 


BC7B 

CD62BF 

00670 

CALL CONVER 


BC7E 

2011 

00680 

JR NZ,01 


BC80 

2A2040 

00690 

LD HL,(CURSOR! 





■v ** v 
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BC83 

F5 

00700 

PUSH AF 


BC84 

0E3A 

00710 

LD C,’:’ 


BC86 

A7 

00720 

AND A 


BC87 

CD95BC 

00730 

CALL OUT 


BCBA 

Fl 

00740 

POP AF 


BC8B 

2A2040 

00750 

LD HL,(CURSOR) 


BC8E 

2B 

00760 

DEC HL 


BC8F 

77 

00770 

L.D (HL) , A 


BC90 

C9 

00780 

RET 


BC91 

4F 

00790 01 

LD C,A 


BC92 

D60D 

00800 

SUB ODH 


BC94 

A7 

00810 

AND A 

; CARRY LOESCHEN! 

BC95 

C20000 

00820 OUT 

JP NZ, O 

; NE IN 

BC98 

DDBEO3 

00830 

LD L,(IX+3) 


BC9B 

DD6604 

00840 

LD H,(IX+4) 


BC9E 

DD7E05 

00850 

L.D A, UX+5) 


BCA1 

A7 

00860 

AND A 


BCA2 

2801 

00870 

Jft Z,000 


BCA4 

77 

00880 

LD (HL),A 


BCA5 

E5 

00890 000 

PUSH HL 


BCA6 

CD5F30 

00900 

CALL 305FH 

* 

BCA9 

CD6531 

00910 

CALL CR 


BCAC 

112800 

00920 

LD DE,40 

- 'VT* . ► i f '5 l U - 

BCAF 

19 

00930 

ADD HL, DE 


BCBO 

EB 

00940 

EX DE,HL 


BCB1 

1B 

00950 

DEC DE 


BCB2 

El 

00960 

POP HL 


BCB3 

CD36BD 

00970 

CALL SKIPI 


BCB6 

CDBABE 

00980 

CALL CR1 


BCB9 

C30831 

00990 

JF 3108H 


BCBC 

23 

01000 EDIT 

INC HL 

; NEUER STACK 

BCBD 

F9 

01010 

LD SP,HL ' 


BCBE 

3E0E 

01020 

LD A,14 

-CURSOR OFF 

BCCO 

CD3300 

01030 

CALL OUTCH 


BCC3 

D9 

01040 

EXX 

; FLAG LOESCHEN 

BCC4 

1 E00 

01050 

LD E,0 i 

* 

BCC6 

D9 

01060 

EXX 


BCC7 

2A2040 

01070 LOOP 

LD HL,(CURSOR) 


BCCA 

CD2B00 

01080 SCAN 

CALL INCH 


BCCD 

A7 

01090 

AND A 

;TASTE 5EDRUECKT? 

BCCE 

2002 

01100 

JR NZ,BRANCH 

; JA 

BCDO 

18F8 

01110 

JR SCAN ;NEIN 

BCB2 

11C7BC 

01120 BRANCH 

LD DE,LOOP 

;RUECKSPRUNGADRESSE 

BCD5 

D5 

01130 

PUSH DE 


BCD6 

FE60 

01140 

CP * $’ +20H 

; SKIP? 

BCD8 

2855 

01150 

JR Z,SKIP 

; JA 

BCDA 

FE 20 

01160 

CP ’ ’ 

;ZEICHEN < * ’ 

BCDC 

380A 

01170 

JR C,CNTL 

; JA 

BCDE 

D9 

01180 

EXX 

;INSERT-FLAG GESETZT 

BCDF 

CB43 

01190 

BIT 0,E 


BCE1 

D9 

01200 

EXX 


BCE2 

C27FBD 

01210 

JP NZ,INSERT 

; JA 

BCE5 

C33300 

01220 

JP OUTCH 

;ZEICHEN AUSGEBEN 

BCE8 

D9 

01230 CNTL 

EXX 

;INSERT-FLAG SETZEN 

BCE9 

CBC3 

01240 

SET 0,E 


BCEB 

D9 

01250 

EXX 


BCEC 

FE19 

01260 

CP 19H 

;INSERT? 

BCEE 

C8 

01270 

RET Z 

; JA 

BCEF 

F5 

01280 

PUSH AF 


BCFO 

CD5F30 

01290 

CALL 305FH 
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BCF3 

Fl 

01300 

POP AF 


BCF4 

D9 

01310 

EXX ; 

JNSERT-FLA6 ZURUFC1 SETZ 

BCF5 

CB83 

01320 

RES 0,E 


BCF7 

D« 

01330 

EXX 


BCF8 

FE18 

01340 

CP 18H 

DELETE'"' 

BCFA 

2862 

01 350 

JR Z,DELETE 

JA 

BCFC 

FE1F 

01360 

CP 1FH 

CLEAR' - ' 

BCFE 

CAC901 

01370 

JP Z,CLEAR 

JA 

BD01 

FE01 

01380 

CF 1 

BREAk ? 

BD03 

2838 

01390 

JR Z,BREAK 

JA 

BD05 

FEOD 

01400 

CP ODH 

ENTERB 

BDO* 7 

CA3DBE 

01410 

JP Z,RETURN 

JA 

BDOA 

11D8FF 

01420 

LD DE,-40 

ZEILE RAUF 

BDOD 

FE1B 

01430 

CP 1BH 

UP° 

BDOF 

2812 

01440 

JR Z.MOVE 

JA 

BDI 1 

11 FFFF 

01450 

LD DE,-1 - 

ZEICHEN ZURUECk . 

BD14 

D608 

01460 

EUB 8 

BAD ° 

BD16 

280B 

01470 

JP Z.MOVE 

JA 

BD19 

110100 

01480 

LD DE,1 

ZEICHEN VOR 

PD1B 

3D 

014 Q 0 

DEC A 

ADVANCE"' 

BD1C 

2805 

01500 

JR Z.MQVE 

JA 

BDI E 

112800 

01510 

LD DE, 40 

ZEILE RUNTER 

BD21 

3D 

01520 

DEC A 

DOWN" 1 

BD22 

CO 

01530 

RET MZ 

MEIN 

BD23 

19 

01540 MOVE 

ADD HL,DE 

ZUM CURSOR ADDIEREN 

BD24 

CDC8BE 

01550 

CALL VIDEND 

CURSOR NOCH IM VIDEOFAM 

BD27 

C8 

01560 

RET Z 

NEIN, AENDERUNG INGN. 

BD28 

7C 

01570 

LP A, H 


BD29 

FE43 

01580 

CP 43H 


BP2B 

ca 

01590 

RET Z 

NEIN 

BD2C 

C30831 

01600 

JP 3108H 


BD2F 

CP9EBE 

01610 Sk IP 

CALL 5EAPCH 

I LETZTES ZEICHEN SUCHEN 

BD32 

EB 

01620 

EX DE,HL 

;LETZTES ZEICHEN 

BD33 

DF 

01630 

PST 18H 

IMINTFR CURSOR 0 

BD34 

EB 

01640 

EX DF., HL 


BD35 

D8 

01650 

RET C 

: JA 

BD36 

3620 

01660 31 IP1 

LP (HL»,' ’ 

; ZEICHEN LQESCHEN 

BD3S 

DF 

01670 

PST J8H 

i LETZTES ZEICHEN GEL.° 

BD3 Q 

*_ -> 

01680 

INC HL 


BD3A 

20FA 

01690 

JR NZ,SMP1 

; NEIN 

BD3C 

C9 

01700 

RET 


BD3D 

21E747 

01710 BREAK 

LD HL,47E7H 

; LETZTES VIDEORAMB': TE 

BD40 

7E 

01720 BREAkl 

LD A,(HL» 


BD41 

FE 20 

01730 

CP ’ ’ 

i BLANK 7 

BD43 

2006 

01740 

JR NZ,BREAk 2 

iNEIN 

BD45 

2B 

01750 

DEC HL 

;JA, NETTER ZURUECk 

BD46 

7C 

01760 

LD A,H 

;VIDEORAMANF. ERREICHT 0 

BD47 

FE43 

01770 

CP 43H 


BD49 

20F5 

017Q0 

JR NZ, BREAkl 

; NEIN 

BD4B 

FESO 

01790 BREAk2 

CP 80H 


BD4D 

2801 

01800 

JR Z, BREAk 3 


BD4F 

23 

01810 

INC HL. 


BD50 

CDC8BE 

01820 BREA13 

CALL VIDEND 


BD53 

CCSE31 

01 830 

CALL Z,SCRÜLL 


BD56 

222040 

f '*1840 

LD (CURSOR),HL 

iNEUER CURSOR 

BD59 

3E0D 

01850 

LD A,ODH 

; CR 

BD5B 

C33300 

01860 

JP OUTCH 


BD5E 

23 

01870 DELETE 

INC HL 

; LET ZTE5 ZEICHEN AB 

BD5F 

CD9EBE 

01880 

CALL SEARCH 

; CURSQP+1 SUCHEN 

RD62 

2B 

01890 

DEC HL. 
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BD63 

DF 

01800 

RST 18H 

MIT CURSOR VERGL. 

BD64 

2816 

01910 

JR Z,DEL 

SPRUNG, WENN GLEICH 

BD66 

DO 

01920 

RET NC 

FERTIG WENN HINTER CURSOR 

BD67 

54 

01930 

LD D, H 

CURSOR« ZI EL ADRE-SSE 

BD68 

5D 

01940 

LD E, L 

FUER BLOCKMOVE 

BD69 

23 

01950 

INC HL 

CURSOR* 1«QUEL.L ADR. 

BD6A 

D5 

01960 

PUSH DE 


BDfcB 

C5 

01970 

PUSH BC 


BD6C 

ED BO 

01980 

LDIR i 

MOVE 

BD6E 

CI 

01990 

POP BC 


BD6F 

Dl 

02000 

POP DE 


BD70 

E5 

02010 

PUSH HL 


BB71 

2100AC 

02020 

LD HL,0F000H-4400H 

BD74 

19 

02030 

ADD HL,DE 


BD75 

54 

02040 

LD D, H 


BD76 

51) 

02050 

L.D E,L 


BD77 

HT 
h r J 

02060 

INC HL. 


BD78 

EDBO 

02070 

LDIR 


BD7A 

El 

02080 

POP HL 


BD7B 

2B 

02090 

DEC HL. 

ZURUECK ZUM LETZTEN BYTE 

BD7C 

3620 

02100 DEL 

LD (HL),” ’ 

;MIT SPACE UEBERSCHR. 

BD7E 

C9 

02110 

PET 


BD7F 

F5 

02120 INSERT 

PUSH AF 

ZEICHEN RETTEN 

BD80 

CD9EBE 

02130 

CALL 5EARCH 

LETZTES ZEICHEN SUCHEN 

BD83 

7E 

02140 

LD A.(HL) 

CURSOR AUF MARKER? 

RD84 

FE 80 

02150 

CP MARKER 


BD86 

2009 

02160 

JR NZ, LI 

i NE IN 

BD8B 

D9 

02170 

EXX 

FLAG SETZEN 

BD89 

CBCB 

02180 

SET 1, E 


BDSB 

D9 

02190 

EXX 


BD8C 

54 

02200 

LD Dj H 

; ZEIGER AUF LETZTES Z. 

BD8D 

5D 

02210 

L.D E,L 

«CURSOR-1 

BDBE 

1B 

02220 

DEC DE 


BDBF 

1806 

02230 

JR L.2 


BD91 

DF 

02240 LI 

RST 18H 

; VERGL. CURSOR-LETZTES Z. 

BD92 

2803 

02250 

JR Z, L2 

; SPRUNG, WENN GLEICH 

BB94 

D239BE 

02260 

JP NC,L3 

; CURSOR HINTER L.Z. 

BD97 

7B 

02270 L.2 

LD A,E 

; L.2. AM ZEILENENDE? 

BD9S 

E5 

02280 

PUSH HL 


BD99 

D5 

02290 

PUSH DE 


BD9A 

EB 

02300 ■■ ■ - v.- 

EX DE,HL. : 


BB9B 

11A3BD 

02310 

L.D DE, LI 11 


BD9E 

D5 

02320 

PUSH DE 


BD9F 

E5 

02330 

PUSH HL : 


BBAO 

C34C03 

02340 

JR 34CH ; 


BDA3 

Dl 

02350 LI 11 

POP DE : 


BDA4 

El 

02360 

POP HL 


BDA5 

FE26 

02370 

CP 26H 


BDA7 

2072 

02380 

JR NZ,L4 

; NE IN 

BDA9 

E5 

02390 

PUSH HL 

;ENDE DER LETZTEN ZEILE 

BDAA 

21E647 

02400 

LD HL,47E6H 


BDAD 

DF 

02410 

RST 1BH 


BDAE 

El 

02420 

PGP HL 


BDAF 

2019 

02430 

JR NZ,L5 

; NEIN 

BDB1 

D5 

02440 

PUSH DE ; 

;JA, SCROLL 

BDB2 

11D8FF 

02450 

L.D DE,-40 ■ 


BDB5 

19 

02460 

ADD HL,DE 1 

* 

BDB6 

222040 

02470 

LD (CURSOR),HL 


BDB9 

D9 

02480 

exx : 


BBBA 

D5 

02490 

PUSH DE ; 
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BOBS D? 

02500 

EXX 


BDBC C5 

02510 

PUSH BC 


BDBD CB8E31 

02520 

CALL SC ROLL 


BDlO CI 

02530 

POP BC 


BDC1 D? 

02540 

EXX 1 


BDC2 Di 

02550 

POP DE 


BDC3 D9 

02560 

EX* 


BDC4 DJ 

02570 

F'OP DE 


BDC5 21D8FF 

02580 

LD HL,OFFDSH 

;DE=DE-4Ö 

BDCS 19 

02590 

ADD HL,DE 


BDC9 EB 

02600 

EX DE,HL 


BDCA 21BE47 

02610 L5 

LD HL,478EH 

;MUSS EIN REST HACH 

BDCD DF 

02620 

RST 19H 

; UNTEN OERSCHOBEN WERDEN'' 

BBCE D5 

02630 

PUSH DE 


BDCF 23 

02640 

1MC HL 


BDDO 23 

02650 

IOC HL 


BDD1 2830 

02660 

JR Z,L7 

" «NEIN * * ' 

BPD3 13 

02670 

INC DE 

; NAEZCHSTEZS ZEICHEN MAR) ER? 

BDD4 1A 

02680 

LD A,(DE' 


BBD5 FEBO 

02690 

CP MARI ER 


BDD7 202A 

02700 

JR NZ,L7 

;MEIN, f EINE VERSCHIEBUNG 

BDD Q EB 

02710 

E> DE,Hl 

; Hl.^ANFANG DER NAECHSTEN 1. 

BDDA 23 

02720 

INC HL 


BDDB 1B 

02730 

DEC DE 

;QUELLADRE5FE (7FBF> 

BDDC DDE3 

02740 

PUSH ] * 


BDDE DD21E747 

02750 

LD IX,47E7H 

;ZIELADRESSE 

BDE2 1A 

02760 L6 

LD A, *DE> 


BDE3 DD7700 

02770 

LD 1 IX+O*,A 


BDE6 ES 

02780 

PUSH HL 


BDE7 2100AC 

02790 

L.D HL., OF'X'OH- 

440OH 

BDEA 1* 

02800 

ADD HL,DE 


BDEB 7E 

02810 

LD A,-HL) 


BDEC El 

02820 

POP HL 


BDED D5 

02830 

PUSH DE 


BDEE DDE5 

02840 

PUSH IX 

1 - -. T >- * ■* * < , -i— — , j i 

BDFO 110ÖAC 

02850 

LD DE,OFOOOH“ 

•4400H 

BDF3 DD19 

02860 

ADD IX,DE 


BDF5 DD7700 

02870 

LD (IX+O),A 


BDF8 DDE1 

02880 

POP IX 


BDFA Dl 

02890 

POP DE 


BDFB DF 

02900 

RST 18H 

; FERTIG*’ 

BDFC 1B 

02° 10 

DEC DE 


BDFD DD2B 

02920 

DEC IX 


BDFF 20E1 

02930 

JR NZ, L.6 

;NEIN 

BE01 DDE1 

02940 

POP IX 


BE03 CS 

02950 L7 

PUSH BC 


BEO4 ES 

02960 

PUSH HL 


BEOS 1128AC 

02970 

LD DE« OFOOOH- 

■4400H+40 

BE08 19 

02980 

ADD HL,DE 


BE09 7E 

02990 

LD A, (HD 


BEOA E3 

03000 

EX <SP),HL 


BEOB FS 

03010 

PUSH AF 


BEOC CDBF31 

03020 

CALL CLEOL 

;FREIGEWORDENE ZEILE 

BEOF Fl 

03030 

POP AF 


BE10 E3 

03040 

EX (SP),HL 


BEI 1 77 

03050 

LD (HL),A 


BE12 El 

03060 

POP HL 


BE13 Ci 

03070 

POP BC 


BE14 112700 

03080 

LD DE,39 


BE17 19 

03090 

ADD HL,DE 
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BE IS 

Dl 

03100 

POP DE 


BEI? 

3680 

03110 

LD (HL.),MARKER 


BEI B 

D9 

03120 L4 

EXX 

;FLAG PRUEFEN 

BE1C 

CB4B 

03130 

BIT 1, E 


BE1E 

CB8B 

03140 

RES 1,E 

;UND LOESCHEN 

BE 20 

D9 

03150 

EXX 


BE21 

2016 

03160 

JR NZ,L3 

;GESETZT^—KEIN MÜVE 

BE 2 3 

62 

03170 

LD H, D 

;EIN ZEICHEN VGRWAERTS 

BE24 

6B 

03180 

LD L, £ 

;VERSCHIEBEN 

BE25 

13 

03190 

INC DE 


BE26 

E5 

03200 

PUSH HL 


BE27 

D5 

03210 

PUSH DE 


BE2S 

C5 

03220 

PUSH BC 


BE29 

EDB8 

03230 

LDDR 


BE2B 

CI 

03240 

POP BC 


BE2C 

Dl 

03250 

POP DE 


BE2D 

2100AC 

03260 

LD HL,0F000H-4400H 

BE 30 

19 

03270 

ADD HL,DE 


BE31 

E3 

03280 

EX (SP),HL 


BE32 

3100AC 

03290 

LD DE,0F000H-4400H 

BE 35 

19 

03300 

ADD HL,DE 


BE36 

Dl 

03310 

POP DE 


BE 37 

EDB8 

03320 

LDDR 


BE 39 

Fl 

03330 L3 

POP AF 

;NEUES ZEICHEN EINFUEGEN 

BE3A 

C33300 

03340 

JP OUTCH 


BE3D 

CD9EBE 

03350 RETURN 

CALL SEARCH 

;LETZTES ZEICHEN SUCHEN 

BE40 

E5 

03360 

PUSH HL 

;CURSOR RETTEN 

BE41 

1305 

03370 

JR R6 


BE43 

7E 

03380 RI 

LD A,(HL) 

;ERSTES ZEICHEN SUCHEN 

BE44 

FESO 

03390 

CP MARKER 


BE46 

2806 

('>3400 

JR Z,R4 


BE48 

2B 

03410 R6 

DEC HL 


BE49 

7C 

03420 

LD A,H 


BE4A 

FE 4 3 

03430 

CP 43H 

;ANF. DES VIDEORAM? 

BE4C 

20F5 

03440 

JR NZ,RI 

; NEIN 

BE4E 

23 

03450 R4 

INC HL 


BE4F 

7E 

03460 

LD A,(HL) 


BE50 

FE 20 

03470 

CP ? ? 1 


BE52 

28FA 

03480 

JR Z,R4 


BE54 

0600 

03490 : - ■ 

LD B,0 

; ZAEHLER 

BE56 

DD2AA740 

03500 

LD IX,(BUFFER) 

;IN I/O-BUFFER 

BE5A 

7E 

03510 R2 

LD A,(HL) 

;UEBERTRAGEN 

BE5B 

E5 

03520 

PUSH HL 


BE5C 

21E8BF 

03530 

L.D HL, CTAB3 


BE5F 

C5 

03540 

PUSH BC 


BE60 

CD62BF 

03550 

CALL CONVER 


BE63 

CI 

03560 

POP BC : 


BE64 

El 

03570 

POP HL 


BE65 

DD7700 

03580 

LD (IX+O),A 


BE68 

DF 

03590 

RST 18H 

;FERTIG? 

BE69 

23 

03600 

INC HL 


BE6A 

DD23 

03610 

INC IX 


BE6C 

280D 

03620 

JR Z,R3 

; JA 

BE6E 

3007 

03630 

JR NC,LEER 

;LEERE ZEILE 

BE 70 

10E8 

03640 

DJNZ R2 . 

;256 ZEICHEN UEBERTR. 

BE72 

1E1C 

03650 

LD E,ICH ! 

;LS-ERROR 

BE74 

C3A219 

03660 

JP ERROR | 


BE77 

DD2B 

03670 LEER 

DEC IX ; 

;ZAEHLER AUF ANFANG 

BE79 

El 

03680 

POP HL | 

;CURSOR ZURUECK 

BE7A 

E5 

03690 

PUSH HL : 
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BE7B 

Dl 

03700 R3 

PGP DE 


BE“C 

DD760000 

03710 

LD <IX+01< 0 

;ENDE MAPI IEREN 

BEQO 

CD6531 

03720 

CALL CP 

;IN NAECHSTE ZEILE 

BEB" 

112800 

‘.»3730 

LD DE', 40 


BE36 

19 

03740 

ADD HL,DE 


BE 37 

CDBABE 

03 750 

CALL CR3 


BESÄ 

CD'*’931 

03 7 60 

CALL 3103H 


BE3D 

2AA740 

03770 

LD HL,(BUFFER* 

iPARAMETER FUER BASIC 

BE90 

2B 

03780 

DEC HL 


BE91 

3 EOF 

03790 

LD A,15 

* 

BE93 

CD33O0 

03800 

CALL OUTCH 


RE*6 

AF 

03810 

XÜR A 


BE9? 

32*940 

03820 

LD 1 409*H>,A 


BE*A 

Dl 

03830 

POP DE 

;STAD 1 ORR IG. 

BE9B 

CO^EIh 

039 40 

JP RET-^3 

;7UPUEQ ZUM BASIC 

BE*E 

E5 

03850 SE.ARCH 

PUSH Hi 

;CURSOR RETTEN 

BE9F 

i') 1 1 jnn<‘t 

03860 

LD BC,0 ] 

;ZEICHEN2AEHLER ' " 

BEA2 

7E 

03870 S1 

L D A, (HL.) 

; MARI EP EUCHEN 

BEA3 

FE 30 

03880 

CP MAPI ER 


BEA5 

2908 

03890 

JP :,52 


BEA7 

s 

03900 

INC ML 


BEAS 

0". 

03° 10 

INC BC 


BEA° 

COL 8BE 

03*20 

CALL 01 DEMO 

; BI LOSCH IPMENDE“* 

BE.AC 

20 F 4 

03*30 

JR NZ,51 

; NEIN 

BEAE 

2B 

03940 

DEC HL 

;mUF LETTEN BILD5CHIRMPL. 

BEAE 

03 

03*50 52 

I MC BC 


BEBO 

2B 

03960 S3 

DEC HL 

;LEERZEICHEN IGNORIEREN 

BEB1 

OB 

03970 

DEC BC 


BEB2 

7E 

03980 

LD A,'HL* 


BE B3 

FE 20 

Ü399>'> 

CP ’ ’ 


BEB5 

29F9 

O4000 

JP Z,S3 


BEB7 

E3 

04010 

EX 'SP',HL 

;CURSOR ZUPUECI 

BEBS 

Di 

04020 

POP DE 

; >DE'-LETZTES ZEICHEN 

BEB9 

C* 

04030 

PET 


BEBA 

CDC3BE 

'>4040 CR1 

CALL VI DENP 

1 1 t * iX U 

BE BP 

CC8E31 

04050 

CALL 2,SCPOLL 


BE CO 

222040 

04060 

LD (CURSOR 1 

, HL 

BEC3 

2B 

04070 

DEC HL. 

; ZFILENENDE MAPI IEREN 

BEC4 

3680 

04080 

LD «HL 1 , MAPI EP 


BEC6 


040*0 

INC HL 


BEC7 

c* 

04100 

PET 


BEC3 

05 

04110 VIDEMO 

PUSH DE 


BEC9 

11E847 

04120 

LD DE, 4" r E8H 


BECC 

DF 

04130 

R*t 18H 


BECD 

Dl 

04140 

POP DE 


BECE 

De 

04150 

RET C 


BECF 

A* 

04160 

>0R A 


BEDO 

7C 

041 ^O 

LD A,H 


BED1 

C9 

04180 

04190 ; 

RET 


BED2 

3AF*BF 

04200 NEW! EY 

LD A, (Fl EYZL) 


BED5 

A7 

04210 

AND A 


BED6 

2811 

04220 

JP Z.NU 


BEDB 

3D 

04230 

DEC A 


BED9 

32F9BF 

04240 

LD (Fl EYZL) , A 


BEBE 

2AFABF 

04250 

L D HL, (FhEYZG) 


BEDF 

7E 

04260 

LD A,(HL) 


BEEO 


04270 

INC HL 


BEE1 

22FABF 

04280 

LD ‘ Fl EYZG) , HL 


BEE4 

A7 

04290 

AND A 
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BEE5 CO 

04700 

RET NZ 


BEEt 7E0D 

04310 

LD A, OI'H 


BEE8 C9 

04720 

RET 


BEE9 CD6FBF 

04730 Nt 1 

CALL REF'EAI 


BEEC CDF5BE 

04340 

CALL Nt 11 


REEF A7 

04750 

AND A 


BEFO ca 

04360 

RET Z 


pef i 72 febf 

04770 

LD 'ZEIC,HN>,A 


BEF4 C9 

04380 

043°0 

RET 

ft 

• 


BEF5 A7 

04400 Nt 11 

AND A 


BEF6 C8 

04410 

RET Z 


BEF7 FE41 

04420 

CP ' A’ 


PFF9 3814 

04470 

JR C, Nt 7 


BEFB FE5B 

04440 

CP '2 ’ +1 


BEFO 3832 

04450 

JP C,LETTER 


BEFF 28OE 

04460 

JR I, Nt 3 


BF01 FEfaO 

04470 

CP öOH 


BF03 3822 

0448 r ' 

JP C, Ft E> 1 


BF05 2608 

044°0 

JR 2, Nt 7 

' 

BF07 FE7B 

04500 

CP ’r’+l 


BF09 3816 

04510 

JR C,LETTER . 

i - * * ( i*# wt i* \ 

BFOB FE80 

04520 

CP 128 


BFOD 3S1A 

04570 

JR C. Ft EY2 


BFOF 211840 

04540 Nt 3 

LD HL,401 SH 


BF12 CB7E 

04550 

BIT 7, (HL.j 


BF14 2028 

04560 

JR NZ,Nh CTRL 


<=r 

’f'H 

LL 

iO 

04570 

L.D C,A 

;1EH UND 5BH VERTAUSCHEN 

BF17 E6BF 

04580 

AND OBFH 

; 'SHIFT A UND AJ 

BF19 FE1B 

04590 

C,P 1BH 


BF1B 79 

04600 

LD A,C 


BFJC 2002 

04610 

JR NZ, E. 1 


BF1E EE40 

04620 

<0P 40H 


BF20 C° 

04630 El 

04640 

RET 

4 

9 


BF21 2JF8BF 

04650 LETTER 

LD HL,SL 


BF24 AE 

04660 

xOR (HL? 


BF25 18E8 

04670 

04680 

JR NK3 

* 


BF27 C61C 

04690 Ft EVI 

ADD A, 7CH--4-5CH 

t - * * * * - * * V F ■ iz'* * t * v * * * * 

BF29 D677 

04" 7 00 Ft EY2 

SUB 77H 


BF2B 214947 

04710 

LD HL,4349H 


BF2E 110700 

04720 

LD DE,7 


BF31 19 

04730 FL2 

ADD HL,DE 


BF32 3D 

04740 

DEC A ! 


BF33 20FC 

04750 

JR NZ,FK2 


BF35 22FABF 

04760 

L.D (Ft EYZGJ ,HL 


BF38 7B 

04770 

LD A,E 


BF39 32F9BF 

04780 

LD <Ft-EYZL/,A 


EF3C 1812 

04790 

04800 ; 

JF( NKC1 

i 


BF7E CBBE 

04810 NKCTRL. 

REB 7,(HL) 


BF40 FE30 

04820 

CP '0* 


BF42 2811 

04830 

JR Z, Nt C2 , 


BF44 FE31 

04840 

CP ' r 


BF46 D8 

04850 

RET C 


BF47 FE39 

04860 

CP ' 9’ 


BF49 3014 

04870 

JR NC, Nt C3 


BF4B D631 

04380 

SUB '1' 


BF4D CB2136 

04890 

CALL 3621H 1 
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BF50 

AF 

04900 Nt CI 

'»GR A 


BF51 

32FEBF 

04 D l , .i 

L.D (ZEICHNE A 


BF54 

C9 

04920 

PET 


BF55 

3AF8BF 

04930 Nt C2 

LD A, -SLJ 


BF58 

EE20 

04940 

/DP 20H 


Bf SA 

32F8BF 

04950 

LD f SL',A 


BF5D 

18F1 

04960 

JR Nt CI 


BF5F 

21D8BF 

04970 NLC3 
04980 ; 

LD HL,CTAB1 


PFö2 

010800 

04990 C0N7EP 

LD RC, TABL.EN 


BF 65 

CS 

05000 

PUSH BC 


BF6o 

EDB1 

f'*5010 

CPIF: 


BF68 

CI 

05020 

POP BC 


BF69 

CO 

05030 

RET NZ 


BF6A 

09 

05040 

ADD HL,Bl 


BFöB 

2B 

05 n 50 

DEC HL 

Jt t 1 v * * t fc, 1 U - F. t _ 

BFtC 

7E 

05060 

LD A, 'HL, 1 


BF6D 


05070 

05080 { 

PCT 

* i» p 


BFfcE 

3A30F3 

05090 REPEAT 

LD A, tOFSBOHt 


BF71 

FE 12 

05100 

CP J2H 


BF77 

200D 

05110 

JP NZ, REF'l 1 


EF75 

CDA933 

05120 

CALL 3PA9H 


BF78 

3A40FS 

05130 REP12 

LD A, < <’>FS40H 1 


BF 7 B 

CB 5 7 

05140 

BIT 2,A 


BF7B 

28FS 

05150 

JP Z, PF>’12 


BF7F 

CDBO38 

05160 

CALL 3SB0H 


BFS2 

213640 

05170 REP11 

L.D HL,LAST 

;LFTZTEN T ASTATURSTATUS 

BF85 

0101F8 

05180 

LD BC,t E'/BD 

;'40T6-403C) MIT ZUST^N; 

BFS8 

AF 

05190 

XQP A 


BF89 

57 

05200 

LD D, A 

iDER TASTATUPVEPGLEICHEI 

BFSA 

32FFBF 

05210 

LD 'TM.', A 


BF8D 

OA 

05220 REF'l 

LD A,(BC) 


BF8E 

5F 

05230 

LD E,A 


BF3F 

AE 

05240 

XQR (HL* 1 

{ AENDEPUNb' 1 * " ‘ ^ ' ' 

BF90 

73 

05250 

LD (HL’,E 


BF91 

202B 

05260 

JR NZ,REP2 

; JA 

BF97 

3AFFBF 

05270 

LD A, kTM) 


BF96 

B3 

05280 

GR E 


BF°7 

32FFBF 

05290 

LD < TM),A 


BF9A 

14 

05300 

INC D 


BF9B 

2C 

05310 

INC L. 


BF9C 

CB01 

05320 

RLC C 

;ALLE ZEILEN UERGL. 

BF g E 

30ED 

05330 

JR NC,REP 1 

; JA 

BFAO 

2AFCBF 

05340 

LD HL, 1 ZAEHLR) 


BF A3 

2B 

05350 

DEC HL 


BFA4 

7C 

05360 

LD A, H 

i =0"' 

BFA5 

B5 

05370 

OP L 


BFA6 

3E00 

05380 

LD A, 0 


BFA8 

200B 

05390 

JR NZ,RETREP 


BFAA 

3AFFBF 

05400 

LD A,(TM) 


BFAD 

A7 

05410 

AND A 


BF AE 

2805 

05420 

JR 2,RETREP 


BF BO 

2EB0 

05430 

L.D L, RFREQU 

; ZAEHL.EF NEU SETZEN 

BFB2 

3AFEBF 

05440 

LD A,'ZEICHN) 

{ZEICHEN IN Akt-U 

BFB5 

22FCBF 

05450 RETREP 

LD 'ZAEHL.R),HL 


BFB8 

A7 

05460 

AND A 


BFB9 

CA0F04 

05470 

JP Z,40FH 


BFBC 

El 

05480 

POP HL 


BFBD 

C9 

05490 

RET 
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BFBE 

5F 

05500 

05510 

REF‘2 

• 

* 

LD E,A ;ENTPRELLUNGi 

BF BF 

C5 

05520 


PUSH BC , ;19 MS WARTEN 

BFCO 

010005 

05530 


LD BC,500H ; 

BFC3 

CD6000 

05540 


CALL DELAY 

BFC6 

01 

05550 


POP BC 

BFC7 

OA 

05560 


LD A, (BC) ;TASTE NOCH IMMER GEDR. 

BFCS 

A3 

05570 


AND E 

BFC9 

2803 

05580 


JR Z,REP3 jNEIN 

BFCB 

CD1A04 

05590 


CALL 4IAH 

BFCE 

210004 

05600 

REF’3 

LD HL,EZEIT jZAEHLER MIT EINSATZZEIT 

BFD1 

22FCBF 

05610 


LD (ZAEHLR >, HL. 

BFD4 

32FEBF 

05620 


LD (ZEICHN),A 

BFB7 

09 

05630 


RET 

BFD8 

41 

05640 

05650 

CTAB1 

* 

5 

DEFM ’AOUSaous' 

BFEO 

5B 

05660 

CTAB2 

DEFM J Äöüfiäöür^ , 

BFE8 

01 

05670 

CTAB3 

DEFB 1 

BFE9 

02 

05680 


DEFB 2 

BFEA 

03 

05690 


DEFB 3 

BFEB 

08 

05700 


DEFB 8 

BFEC 

05 

05710 


DEFB 5 

BFEB 

06 

05720 


DEFB 6 - " ■' ’■ ' 

BFEE 

07 

05730 


DEFB 7 

BFEF 

08 

05740 


DEFB 8 

BFFO 

5B 

05750 

CTAB4 

DEFM *'Aöüf>äöüi5 J 

0008 


05760 

TABLEN 

EGU 8 ; CTAB2-CTAB1 

BFF8 

20 

05770 

05780 

• 

SL 

DEFB 20H 

BFF9 

00 

05790 

FKEYZL 

DEFB 0 

BFFA 

0000 

05800 

FKEYZG 

DEFW 0 

BFFC 

0000 

05810 

ZAEHLR 

DEFW 0 

BFFE 

00 

05820 

ZEICHN 

DEFB 0 

BFFF 

00 

05830 

TM 

DEFB 0 

BC50 


05840 

05850 

■ 

) 

END INIT . 


00000 TOTAL ERRORS 

24324 TEXT AREA BYTES LEFT 


i 


f 

j 

I 


i 
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2.2.1 Basicerweiterung COLBAS 


COLBAS bietet dem Cassettenbenutzer viele der 
Möglichkeiten, die sonst erst dem Diskettenbenutzer 
offenstehen. 

Es ist folgendes unter COLBAS möglich: 


- Fl ex i bl es Zusammen 1 aden versch i edener • - ’* i * * 

Basicprogramme von Cassette 

- Suchen von Zeichenfo1gen im Basicprogrammtext 

- USR0 bis USR9 

- DEFUSR0 bis DEFUSR9 

- DEFFN 

- LIME INPUT 

- MID$ als Anweisung 

- INSTR 

- RESTORE n 

- Formatiertes Listen von Programmen 

- Entfernen unnötiger Leerzeichen und REM's 


Funktion: 


Die meisten Erweiterungen von NEUBAS werden über die 
unbenutzten Diskbasicbefehlsworte aufgerufen. Diese 
Anbindung ist ähnlich wie beim Programm PACK beschrieben 
programmiert» aber hier noch einfacher. Beim Programm PACK 
mußte in der Diskettenversion der Befehl KILL zum Löschen 
von Files erhalten bleiben. Daher wird nach Auftreten des 
KILL zunächst das Argument geprüft. Uenn es eine 
Zeichenkette ist, wird ein File gelöscht, andernfalls der 
Programmtext gepackt. 

Der RESTORE N-Befeh1 wird durch Usränderung des RST 
10H-Uektors implementiert. Dazu wird der RST 10H-Aufruf in 
der Interpretationssch1 eife, kurz vor dem Anspringen der 
einzelnen Routinen für die verschiedenen Anweisungen 
abgefangen. 
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HERGE und RSET (ZUSAHHENLADEN HEHRERER BASICPROGRAHHE) 


Hit HERGE und RSET uird es möglich mehrere schon auf 
Cassette vorhandene Basicprogramme zusammen in den Rechner 
zu bringen. Dies erueist sich als besonders uertvol1, uenn 
Sie in neu zu schreibende Programme bereits vorhandene 
Programmsegmente (insbesondere Unterprogramme aus einer 
schon vorhandenen Unterprogrammsammlung) einfügen möchten. 


Durch Eingabe von * HERGE * wird das momentan im Rechner 
befindliche Basicprogramm "unsichtbar" gemacht. Der 
Speieher seheint 1eer zu sein , uovon Sie sich durch Eingabe 
von 'LIST' überzeugen können. Sie können nun das zueite 
Programm uie geuohnt mitte1s *CLOAD * laden. Danach steht 
Ihnen dieses zueite Programm so im Rechner zur Verfügung, 
uie Sie es nach normalen LadeVorgängen geuohnt sind. Das 
heißt. Sie können das Programm laufen lassen, listen ... 

Um nun das "unsichtbare” Programm zusammen mit dem 
zugeladen zueiten Programm zum Vorschein zu bringen, müssen 
Sie dafür sorgen, daß die niedrigste Zeilennummer des 
zueiten Programmes größer ist als die höchste Zeilennummer 
des ersten <momentan "unsichtbaren”) Programmes. Falls dies 
nicht ohnehin der Fall ist, kann mit Hilfe des 'NAHE* 
Befehls leicht dafür gesorgt uerden, daß das zueite 
Programm die erforderlichen höheren Zeilennummern erhält. 
(Bei dieser Umnumerierung ist es auch möglich, ein 
zugeladenes Unterprogramm nachtrag1ich an das aufrufende 
Programm anzupassen.) 

Durch Eingabe von *RSET * uird nun das erste Programm neben 
dem Zueiten uieder "sichtbar" gemacht. Es stehen nun beide 
Programme zusammen im Speicher. 

Nach diesem Verfahren können Sie nun noch beliebig viele 
ueitere Programme zu 1aden. 

J ' V . L ... t . . i ,r . 41 ^1. I, . t, , .'‘iti . fr I . 


Solange sich ein "unsichtbares” Programm im Rechner 
befindet erscheint zusätzlieh zu jeder * NEUBAS READY * 
Heldüng der Text ’* HERGE HODE *’ auf dem Bildschirm. Dies 
so11 Sie an das noch vorhandene, "unsichtbare" Programm 
erInnern. 


1 


I 
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GET (SUCHEN VON ZEICHENFOLGEN 111 BASICPROGRAtlHTEXT ) 


Hit GET können beliebige Zeichenfo1gen im Basicprogrammtext 
gesucht werden. Dies ist nütz 1ich wenn Sie z.B. feststeI1en 
wollen ob, bzu. wo bestimmte Variablennamen im Basicprograrmntext 
benutzt werden. Oder Sie möchten in einem längeren 
Basicprogrammtext eine bestimmte SteIle, deren Zei1ennummer Sie 
nicht kennen, schnell finden. 


Sie geben * GET' ein, und der Rechner me1det sich mit 7 STRING-' . 
Nun können Sie die Zeichenfo1ge, nach we1 eher gesucht werden 
soll, eingeben. Hierbei müssen zwei Fälle unterschieden werden: 

1 . * - ■ , ' ’' + - ■■ T ' t i t ' < * * 'T " ** ”, U 1 

1) Sie suchen eine Variable (z.B. AS$, N, N%) oder 
einen Ausdruck mit Basicsch1üsse1Worten 
Cz.B. GOTO 280, RETURN). In diesem Fall geben Sie 
die gesuchte Zeichenfolge ein, und sch1ießen mit 
7 ENTER 7 ab. 


2) Sie suchen Zeichenfo1gen, die sich innerhalb von 

Anführungsstrichen ( ” ) , in DATA-Anweisungen oder in 
Bemerkungen (hinter REH bzw. ') befinden. Hier geben 

Sie vor der eigent1ichen Zeichenfolge 7 @@ 7 ein 
und schließen dann mit 'ENTER* ab. 

(Denn Sie a 1 so z.B. die Zeichenfolge "COPYRIGHT BY” 
suchen, geben sie '00COPYRIGHT BY' ein.) 


In beiden Fällen wird der Rechner darauf hin die Zeilennummern, 
in we1chen die gesuchte Zeichenfolge auftritt, ausgeben. So11te 
die Zeichenfolge nicht im Basicprogrammtext vorhanden sein, so 
wird dies anstel1e der Zei1ennummern gemeldet. 


Bemerkung: Tritt die gesuchte Zeichenfolge in einer Zeile 

mehrma1s auf, so wird auch diese1be Zei1ennummer 
entsprechend oft ausgegeben. 

Dabei ist zu beachten, daß z.B. in der Zeichen¬ 
folge ”****” die Zeichenfolge ”**” dreimal vor¬ 
kommt ♦ 

Bei 1) wird aus dem Suchtext vor dem Vergleich mit 
dem Basieprogramm der Zwischencode gebi1det. 

Bei 2) wird der Suchtext nicht verändert. 
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USR0 bis USR9 (AUFRUF VON 10 VERSCHIEDENEN HASCH INENPROGRAHNEN) 


Dar es bislang für Sie nur mög1 ich ein Haschinenprogramm 
aus elnem Basicprogramm heraus aufzurufen, so können unter 
NEUBAS bis zu 10 verschidene Haschinenprogramme aufrufen 
werden. 

Die Arbeitsweise der USR0 bis USR9 Funktionen ist genauso» 
wie in Ihrem Basichandbuch unter USR erläutert. 


So rufen Sie z.B. mit 


A=USR7(0) 

* 

das 7. Haschinenprogramm auf. 


DEFUSR0 bis DEFUSR9 (STARTADRESSEN VON HASCHINENPROGRAHHEN> 


Bislang mußte die Startadresse des Haschinenprogramms» 
welches mittels USR aufgerufen werden sollte, in zwei 
speziei 1e Speicherzellen M gePOKEt” werden. 

Diese unpraktische Vorgehensweise wird unter NEUBAS durch 
die Befehle DEFUSR0 bis DEFUSR9 ersetzt. 


Sie geben z.B. 

DEFUSR7=15360 (oder hexadezimal DEFUSR7=&3C00) 


ein und weisen damit dem 
Startadresse 15360 (hex 3C00) zu. 


7 


Haschinenprogramm die 
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DEFFN CVOn ANUENDER DEFINIERBARE FUNKTIONEN) 


Hit DEFFN können Sie Funktionen» welche häufig in einem 
Programm benutzt werden, einmal definieren und dann im 
Laufe des Programms beliebig oft durch den Funktionsnamen 
aufrufen. 

DEFFN hat folgendes Format: 

DEFFN FKTN CVARLIST) = AUSDRUCK 

FKTN ist der Name der Funktion, die hier definiert wird. 
Für diesen Namen gelten die g1eichen Kriterien wie für 
Variab1ennamen. (Also erstes Zeichen alphabetisch» alle 
weiteren alphanumerisch, nur die ersten beiden Zeichen 
werden vom Basicinterpreter berücksichtigt) 

Ueiterhin muß im Funktionsnamen gekennzeichnet werden, von 
welchem Typ das Ergebniss der Funktion sein soll. Die 
erfolgt wiederum nach den gleichen Kriterien, wie sie schon 
von den Variablennamen her bekannt sind. CAlso % für 
ganzzahlige, i für einfachgenaue, # für doppeltgenaue und $ 
für String-Ergebnisse. Ueglassen ergibt einfachgenaue 
Ergebnisse. ) 

VARLIST besteht aus sovielen Variablen (jeweils durch Komma 
getrennt), wie der Ausdruck auf der rechten Seite an 
Argumenten benötigt. 

AUSDRUCK ist die Funktion selbst. Sie darf nur eine 
Anweisung von einer zeile Länge sein. (Durch Doppelpunkt 
getrennte Anweisungen sind nicht erlaubt.) 

Zum besseren Verständnis folgende Beispiele: .. -—.' * 

10 DEFFN CUBIC (X) = X*X*X 

2B INPUT A 

30 B = FN CUBIC (A) 

40 PRINT B 

In 10 wird die einfache Funktion CUBIC definiert. Sie 
liefert ein Ergebniss einfacher Genauigkeit und benötigt 
nur eine Variable in der Variab1en1iste, da sie nur ein 
Argument (X) im Ausdruck hat. 

In 30 wird die Funktion CUBIC aufgerufen. Hier ist das 
Argument die Variable A. (Es könnte dort aber auch jeder 
beliebige Ausdruck einfacher Genauigkeit stehen.) 

Oder: 10 DEFFN TE$ CX$,Y$) = X$+”/”+Y$ 

20 INPUT "VORUAHL";V$ 

30 INPUT ”RUFNUNHER”;R$ 

40 G$ = FN TE$ CV$,R$) 

50 PRINT G$ 

Hier wird eine Funktion mit zwei Stringargumenten 
definiert, welche in diesem Fall auch wieder ein 
Stringergebniss liefert.(Uas nicht immer der Fall sein 
muß ! ) 
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LINE INPUT C ZEILENEINGABE) 


Mit dem normalen INPUT Befeh1 ist es nicht möglich in eine 
Stringvariablen Kommata oder Anführungsstriche einzugeben. 
Außerdem werden eingegebene, führende Leerzeichen nicht in die 
Stringvarible übernommen. Weiterhin wurde jede Eingabe mittels 
Ausgabe eines * 7 * aufgefordert. Dadurch verbot sich die 
Anwendung des INPUT Befehls in vielen Fällen. CInsbesondere 
Textverarbeitungsprogramme in Basic!) 

LINE INPUT umgeht diese Probleme und hat fo1gendes Format: 

LINE INPUT »TEXT"; VAR* 

mit: TEXT ist ein beliebiger Text» welcher vor der Eingabe 

auf den Bi 1dschirm geschrieben wird. (Kann einsch1ieß- 
1 ich nachfolgendem Semikolon entfallen! ) 

VAR* ist die Stringvariable, welche die Eingabe über- 
ehmen so11. 


Kurzes Beispiel: 


10 LINE INPUT »IHRE EINGABE BITTE!»; A* 
20 PRINT A* 


Hier erscheint nach der Ausgabe des Textes nur der Cursor in 
der nächsten Zeile.Ckein Fragezeichen mehr!) 

Sie können nun beiiebige Zeichen eingeben Cincl. führender 
Leerzeichen, Kommata, Anführungsstriche usw. ) bis Sie mittels 
<ENTER> die Eingabe absch1ießen. 


MID* CALS STATEMENT) 


MID* als Statement ist eine Art Umkehrung der MID* Funktion. 
Mit dem MID* Statement wird ein Tei1 eines Strings durch einen 
anderen String ersetzt. 

Das Format ist wie folgt: 

MID*< VAR*,nl,n2)=AUSDRUCK* 


mit: 


VAR* ist die zu verändernde Stringvariable. 
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nl ist die Position, ab welcher die Veränderung in 
VAR$ beignnen soll. (Erste Position im String ist 1!> 

n2 gibt die Anzahl der zu verändernden Zeichen an. 

Kann auch entfallen. (einschl. vorstehendem Komma!) 

Dann wird AUDRUCKS soweit eingesetzt, daß VAR$ ihre 
ursprüngliche Länge beibehält. 

AUSDRUCKS ist ein beliebiger Stringausdruck. 

Beachten Sie, daß die Ersetzung immer nur soweit erfolgt, daß 
die Länge des zu verändernden String erhalten bleibt! 


Für folgende Beispiele wird vorausgesetzt: A$="ABCDEFG" 


MID$(A$,2,2)=”12345” 
NID$(A$,5) =”12345” 
NID$(A$,4»4)=”” 


1iefert: A$=”A12DEFG” 

” A$=”ABCD123” 

” A$="ABCDEFG” 


INSTR (STRINGSUCH FUNKTION) 


Nit INSTR können Sie Teilstrings innerhalb eines String 
suchen. 

INSTR hat folgendes Format: 

INSTR(n,AUSDRUCK1$,AUSDRUCK2$) 

mit: n ist die Position in AUSDRUCK1#, ab welcher gesucht 

werden soll. Kann entfallen, (einschl. nachfolgendem 
Komma) In diesem Fall wird ab der 1. Position gesucht. 

AUSDRUCK1$ ist der Stringausdruck, in welchem gesucht 
werden so11. 

AUSDRUCK2$ ist der Stringausdruck, nach welchem 
gesucht werden sol1. 

Der Aufruf der INSTR Funktion liefert als Ergebniss die 
Position, ab welcher der gesuchte String zuerst im zu 
durchsuchenden String auftritt. Ui rd der Teilstring nicht 
gefunden, so ergibt sich 0 als Ergebniss. 


Bei den folgenden Beispielen wird wieder A$="ABCDEFG" 

vorausgesetzt: 

1iefert 5 

0 

e 


INSTR(A$,”EF”) 
INSTR(A$,"234”) 
INSTR(3,A$,"AB”) 


tt 
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RESTORE H 


fl i t RESTORE N i st d i rekte Zugriff auf jede be 1 i eb i ge 
DATA-Zeile möglich. N muß nicht uie bei GOTO, GOSUB, usu. eine 
Ganzzah1konstante sein, sondern kann ein beiiebiger Ausdruck 
sein. Die RESTORE—Anueisung ohne Zeilennummer ist natürlich 
auch weiterhin verfügbar. 

Beispie1: 

10 DATA 10 
20 DATA 20 
30 DATA 30 

40 RESTORE: READ A: PRINT A; 

50 RESTORE 30: READ A: PRINT A; 

60 RESTORE 3*10: READ A: PRINT A; 

ergibt beim Starten mit RUN: 

1 * * ' i ' * i * * 

10 30 30 


NAHE und LSET (formatiertes Listen) 


Diese Befehle entsprechen in Funktion und Format dem LIST bzu. 
LLIST Befehl. Aber es erfolgt eine formatierte Ausgabe auf 
Bildschirm bzu. Drucker, das heißt: 

- Text beginnt immer erst ab Spalte 6 (davor stehen nur 
Zei1ennummern!) 

- Vor und hinter jedem BASIC-SchlUsseluort wird ein 

Leerzeichen 

eingefügt 

- Nach jedem *: * wird eine neue Ausgabezeile begonnen 

- IF-THEN-ELSE Strukturen werden eingerückt 


In dieser Form ausgegeben sind auch Programme » ue1che durch 
einen * PACKER * gegangen sind, wieder akzeptabe1 lesbar. 
Formatierte Listings vom Drucker eigenen sich ausgezeichnet 
als endgü1tige Dokumentationen von BASIC-Programmen. 
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KILL C PACKER > 


Ein PACKER entfernt aus Basicprogrammen überf1üssige 
Leerzeichen und Kommentare ohne an der Funktion des Programmes 
etwas zu ändern. 

Der Aufruf erfolgt mit: 

KILL < ZEILE < - ZEILE >> 

Durch diesen Befeh1 werden im ganzen Programmtext C - oder 
bei Angabe der optiona1en Parameter, im spezifierten Bereich - 
) alle Leerzeichen und Kommentare entfernt. . 

Beim Packen des Programmes werden alle Vorsichtsmaßnahmen 
getroffen, um die Funktion des Programmes nicht zu 
beeinträchtigen: 

1) Reine Kommentarzei1en werden nur dann vollständig entfernt, 
wenn sie nicht ein Sprungziel bilden. Andernfalls bleiben 
Zeilennummer und REH erhalten. 

10 GOTO 30 10 GOTO30 

20 REH ****** 30 REH 

30 REH ENDE 

2> In Hockkommata eingeschlossene Zeichenketten werden vom 
Packen nicht tangiert. 

10 PRINT »EINGABE 10 PR I NT”EINGABE 


3) Nicht in Hochkommata eingeschlossene DATA-Strings werden so 
gepackt, daß sich der durch READ ge1esene String nicht ändert. 

10 DATA 1 > 2 , 3 , 4 10 DAT A1 ,2 ,3 ,4 

In seitenen Fällen, die von PACK nicht erkannt werden, kann 
das Packen unter ungünstigen Voraussetzungen zu einer Änderung 
der Funktion des Programmes führen. Ein Beispiel soll das 
Problem verdeutlichen: 

10 IF A=F OR 1=10 THEN 100 
wird zu 

10 IFA=FORI=10THEN100 

gepackt. Uird die Zeile 10 nach dem Packen editiert und 
dadurch neu in den Zuischencode übersetzt, dann wird das 
Keyword FOR erkannt und eine Ausführung der Zeile ergäbe einen 
Syntax—Error. 

Vor und nach dem Packen uird der Speieherbedarf des 
Programmes ausgegeben, um eine Abschätzung des eingesparten 
Speieherp1atzes zu ermög1ichen. 





2.2.2 Basicerueiterung COLBAS 


Quellprogramm 


Seite 91 








2.2.2 Basiceuieiterung COLBAS - Que11Programm 


Seite 92 


B L*<> 

22 AA* 1 1 

mm 

00710 i 

LP 

'41AAH),HL 

B fc?3 

32AC41 

<‘>0720 

OO^C*’ i 

00740 s 

00750 ; 

00760 i 

LD 

* 41ACH),A 

B6 g 6 

2126B8 

00770 

LD 

HL,READY 

Bb99 

22AD41 

00730 

00790 ; 

LD 

(41ADH),HL 

Pö?C 

32D941 

00300 

L.D 

(41D g H),A 

Bö?F 

2193B9 

008 i 0 

LD 

HL,MID 

B6A2 

22DA41 

00820 

00830 ; 

LD 

(4ir.ftH‘ ,HL. 

B6A5 

C3191A 

00840 

00950 ; 

JP 

1A19H 



00960 ; 

0037n ; 

00B8Q ; 

00890 s 

00900 ; 

00910 

00920 i 

0 ( " ,Q 3 ( .’ ; * 
’X>94‘‘* ; 

00 g 50 ; 

00960 ; 

f i » + i + ^ . ' « 

iCSEG 

PROGRAMM! oR^EP 

* 

013B 


00970 5MERR 
00980 ; 

0o990 i 

01000 ;***** 
01010 i 

EOU 

DEFFN 

013BH ;ANSPRUNGADR 

UMD DEFUSR BEFEHLE 

B6A8 

FEC1 

01020 DEF 

CP 

0C1H 

B6AA 

282C 

01030 

01040 i 

3R 

Z,DEFUSR 

BSAC 

CDCCB6 

01050 DEFFM 

CALL 

DEFFMl 

B6AF 

CD2B29 

01060 

CALL 

2828H 

B6B2 

EB 

01070 

EX 

DE, HL 

B6B3 

73 

01080 

LD 

* HL >, E 

B6B4 


01090 

INC 

ML 

B6B5 

72 

01100 

LD 

'HL',D 

B6B6 

EB 

01110 

EY 

DE, HL 

BöB7 

7E 

m 01120 

LD 

A,'HL* 

B6B8 

FE23 

‘ 01130 

CP 

28H 

B6BA 

C2051F 

01140 

JP 

MZ,1F05H 

B6BD 

D7 

01150 

RST 

16 

B6BE 

CD0D26 

01160 DEFFN2 

CALL 

2öODH 

B6C1 

7E 

01170 

LD 

A, < HL) 

B6C2 

FE29 

01 ISO 

CP 

29H 

B6C4 

CA051F 

01190 

JF 

Z,1F05H 

B6C 7 

CF 

01200 

RST 

8 

B6C8 

2C 

01210 

DEFB 

? * 

* 

BfaC9 

C3PEB6 

01220 

JP 

DEFFN2 

B6CC 

CF 

01230 DEFFM1 

PST 

8 

B6CD 

BE 

01240 

DEFB 

OBEH ;FN TOKEN 

B6CE 

3E80 

01250 

LD 

A, 80H 

Bö DO 

32DC40 

01260 

LD 

(40DCH),A 

B6D3 

Bö 

01270 

OR 

(HL) 

BöD4 

47 

01280 

LD 

B, A 

B6D5 

C31226 

01290 

JP 

2612H 


F’UEP SN ERR 


» i * ■ 
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B6D8 

CDE7B6 

01300 ; 

01310 ÜEFUSR 

CALL 

DEFUS1 

B6DB 

D5 

01320 

PUSH 

DE 

B6DC 

CF 

01330 

RST 

8 

B6DD 

D5 

01340 

DEFB 

0D5H 

B6DE 

CD022B 

01350 

CALL 

2B02H 

B6E1 

E3 

01360 

EX 

(SP),HL 

B6E2 

73 

01370 

LB 

(HL),E 

B6E3 

23 

01380 

INC 

HL 

B6E4 

72 

01390 

LD 

<HL),D 

B6E5 

El 

01400 

POP 

HL 

B6E6 

C9 

01410 

RET 


B6E7 

D7 

01420 DEFUS1 

RST 

16 

B6E8 

010000 

01430 

LB 

BC,0 

B6EB 

3005 

01440 

JR 

NC,DEFUS2 

B6ED 

D630 

01450 

SUB 

30H 

B6EF 

17 

01460 

RLA 


B6F0 

4F 

01470 

LD 

C, A 

B6F1 

D7 

01480 

RST 

16 

B6F2 

EB 

01490 DEFUS2 

EX 

DE, HL 

B6F3 

21F9B6 

01500 

LD 

HL,STORE 

B6F6 

09 

01510 

ADD 

HL, BC 

B6F7 

EB 

01520 

EX 

DE, HL 

B6F8 

C9 

01530 

RET 


B6F9 

4A1E 

01540 ; 

01550 STORE 

DEFW 

1E4AH 

B6FB 

A41E 

01560 

DEFW 

1EA4H 

B6FD 

A41E 

01570 

DEFW 

1EA4H 

B6FF 

A41E 

01580 

DEFW 

1EA4H 

B701 

A4 IE 

01590 

DEFW 

1EA4H 

B703 

A41E 

01600 

DEFW 

1EA4H 

B705 

A41E 

01610 

DEFW 

1EA4H 

B707 

A41E 

01620 

DEFW 

1EA4H 

B709 

A41E 

01630 

DEFW 

1EA4H 

B70B 

A41E 

01640 

DEFW 

1EA4H 

B70D 

Fl 

01650 ; 

01660 ; 

01670 ;**#** 
01680 ; 

01690 USR 

USR FUNKTION 

POP AF 

B70E 

CDE7B6 

01700 

CALL 

DEFUS1 

B711 

D5 

01710 

PUSH 

DE 

B712 

CD2C25 

01720 

CALL 

252CH 

B71S 

E3 

01730 

EX 

(SP),HL 

B716 

4E 

01740 

LD 

C,(HL) 

B717 

23 

01750 

INC 

HL 

B718 

46 

01760 

LD 

B, (HL) 

B719 

21E726 

01770 

LD 

HL,26E7H 

B71C 

E5 

01780 

PUSH 

HL 

B71D 

C5 

01790 

PUSH 

BC 

B71E 

3AAF40 

01800 

LD 

A,(40AFH) 

B721 

F5 

01810 

PUSH 

AF 

B722 

FE 03 

01820 

CP 

3 

B724 

CCDA29 

01830 

CALL 

Z,29DAH 

B727 

Fl 

01840 

POP 

AF 

B728 

EB 

01850 

EX 

DE, HL 

B729 

212141 

01860 

LD 

HL,4121H 

B72C 

C9 

01870 

RET 




01880 ; 

01890 ; 




TOKEN 


; FC ERROR ALS DEFAULTADR. 


*■ 
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01900 

i***** 

FN FUNKTION 



01910 

* 



B72D 

1E2E 

01920 

AS2 

LD 

E, 2EH 

B72F 

C3A219 

01930 


JP 

19A2H 

B732 

3AAF40 

01940 

ASS 

LD 

A, (40AFH) 

B735 

3D 

01950 


DEC 

A 

B736 

3D 

01960 


DEC 

A 

B737 

3D 

01970 


DEC 

A 

B738 

B7 

01980 


OR 

A 

B739 

37 

01990 


SCF 


B73A 

CA93B7 

02000 


JP 

Z, AS6 

B73D 

4E 

02010 


LD 

C,(HL) 

B73E 

23 

02020 


INC 

HL 

B73F 

46 

02030 


LD 

B, (HL) 

B740 

C5 

02040 


PUSH 

BC 

B74i 

FA5CB7 

02050 


JP 

M,AS7 

B744 


02060 


INC 

HL 

B745 

4E 

‘ 02070 


LD 

C,(HL) 

B746 

23 

02080 


INC 

HL 

B747 

46 

02090 


LD 

B,(HL) 

B748 

CS 

02100 


PUSH 

BC 

B749 

E25CB7 

02110 


JP 

PO,AS7 

B74C 

23 

02120 


INC 

HL 

B74D 

DA53B7 

02130 


JP 

C, ASB 

B750 

211D41 

02140 


LD 

HL,411DH 

B7S3 

4E 

02150 

ASS 

LD 

C,(HL) 

B754 

23 

02160 


INC 

HL 

B755 

46 

02170 


LD 

B,(HL) 

B756 

23 

02180 


INC 

HL 

B757 

C5 

02190 


PUSH 

BC 

B758 

4E 

02200 


LD 

C, (HL) 

B759 

07 

X- - * 

02210 


INC 

HL 

B75A 

46 

02220 


LD 

B,(HL) 

B75B 

C5 

02230 


PUSH 

BC 

B75C 

DA9DB7 

02240 

AS7 

JP 

C, AS9 

B75F 

CDCCB6 

02250 

FN 

CALL 

DEFFNi 

B762 

3AAF40 

02260 


LD 

A, (40AFH) 

B765 

B7 

02270 


OR 

A 

B766 

F5 

02280 


PUSH 

AF 

B767 

22F340 

02290 


LD 

(40F3H),HL 

B76A 

EB 

02300 


EX 

DE, HL 

B76B 

7E 

02310 


LD 

A,(HL) 

B76C 

23 

02320 


INC 

HL 

B76D 

66 

02330 


LD 

H,(HL) 

B76E 

6F 

02340 


LD 

L, A 

B76F 

B4 

O2o50 


OR 

H 

B770 

CA2DB7 

02360 


JP 

Z, AS2 

B773 

7E 

02370 


LD 

A,(HL) 

B774 

FE29 

02380 


CP 

28H 

B776 

C2C6B7 

02390 


JP 

NZ,AS3+1 

B779 

D7 

02400 


RST 

16 

B77A 

22D840 

02410 


LD 

(40D8H),HL 

B77D 

1802 

02420 


JR 

AS4 

B77F 

CF 

02430 

AS 10 

RST 

8 

B780 

2C 

02440 


INC 

L 

B7B1 

CEO 4 

02450 

AS 4 

LD 

C, 04 

B783 

CD6319 

02460 


CALL 

1963H 

B786 

3E80 

02470 


LD 

A, 80H 

B788 

32DC40 

02480 


LD 

(40DCH),A 

B78B 

CD0D26 

02490 


CALL 

260DH 
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B78E EB 

02500 

EX 

DE, HL 

B78F 37 

02510 

SCF 


B790 C332B7 

02520 AS11 

JP 

ASS 

B793 D22324 

02530 AS6 

JP 

MC,2423H 

B796 D5 

02540 

PUSH 

DE 

B7 q 7 EB 

02550 

EX 

DE, HL 

B798 CD882S 

02560 

CALL 

2888H 

B7°B Dl 

02570 

POP 

DE 

B79C AF 

02580 

XÜR 

A 

B79D E5 

02590 A5 Q 

PUSH 

HL 

B79E F5 

02600 

PUSH 

AF 

B79F EB 

02610 

EX 

DE, HL 

B7A0 7E 

02620 

LD 

A, (HL,* 

B7A1 FE29 

02630 

CP 

29H 

B7A3 20DA 

02640 

JR 

NZ,AS10 

B 7 A5 2AF340 

02650 

LD 

HL,(40F3H) 

B7AS CF 

02660 

RST 

8 

E7A9 28E5 

02670 

JR 

Z,AS11 

B7AB 2AD840 

02680 

LD 

Hl,(40D8H) 

B7AE CD0D26 

02690 AS13 

CALL 

260DH 

B7B1 E3 

02700 

EX 

(SP),HL 

B7B2 CD2B1F 

02710 

CALL 

1F2BH 

B7B5 7E 

02720 

LD 

A,(HL,< 

B7B6 FE29 

02730 

CP 

2 q H 

B7B8 2S07 

02740 

JR 

Z,A512 

B7BA CF 

02750 

RST 

8 

B 7 BB 2C 

02760 

INC 

L 

B7BC E7. 

02770 

EX 

(SP:,HL 

B7BD CF 

02780 

RST 

8 

B7BE 2C 

027 Q 0 

INC 

L 

B7BF 18ED 

02800 

JP 

AS 13 

B^Cl D7 

02810 AS12 

RST 

16 

B7C2 E3 

02820 

EX 

(SP:,HL 

B7C7 CF 

02830 

RST 

B 

B7C4 29 

02840 

ADD 

HL, HL 

B7C5 3ED5 

02850 AS3 

LD 

A,0D5H 

B7C7 CF 

0286-:* 

RST 

8 

B7C8 D5 

02870 

PUSH 

DE 

B7C9 CD3723 

02880 

CALL 

2337H 

B7CC 2B 

028°0 

DEC 

HL 

B 7 CD D7 

02900 

RST 

16 

B7CE C29" 7 19 

02910 

JP 

NZ,19 q 7H 

B 7 D1 E7 

02920 

RST 

32 

P7D2 282F 

02930 

JR 

Z, ATI 

B7D4 Dl 

02940 AT6 

POP 

DE 

p-'DS Fl 

02950 AT4 

POP 

AF 

B7B6 283F 

02960 

JR 

Z, AT2 

B7DS 30IC 

02 Q 70 

JR 

NC,AT3 

B7DA El 

02 Q 80 

POP 

HL 

P^DB CI 

02990 

POP 

BC 

B7DC 70 

03000 

LD 

(HL),B 

B7DD 2B 

03010 

DEC 

HL 

B7DE 71 

03020 

LD 

(HL),C 

B^DF FAD5B' 7 

03030 

JP 

M, AT4 

B^EC 2B 

03040 

DEC 

HL 

B7E3 Ci 

03050 

POP 

BC 

B7E4 70 

03060 

LD 

(Hl),B 

B7E5 2B 

03070 

DEC 

HL. 

B7E6 71 

03080 

LD 

(HL»,C 

B?E7 E2D5B7 

030*0 

JP 

PO,AT4 
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ß 7 EA 

2B 

03100 



DEC 

HL 

B7EB 

CI 

03110 



POP 

BC 

B^EC 

70 

03120 



LD 

(HL),B 

B7ED 

2B 

03130 



DEC 

HL 

B 7 EE 

7 1 

03140 



LD 

(HL» ,C 

B7EF 

2B 

03150 



DEC 

HL 

B7F0 

CI 

031 60 



POP 

BC 

B7F1 

70 

03 J 70 



LD 

(HL),B 

B 7 F2 

2B 

03180 



DEC 

HL 

B7F3 

71 

03190 



LD 

'HL),C 

B7F4 

18BF 

03200 



JR 

AT4 

B7F6 

05 

03210 

AT3 

PUSH 

DE 

B7F7 

F5 

03220 



PUSH 

AF 

B7F8 

E 7 

07230 



PST 

32 

B7F9 

11D340 

03240 



LD 

DE,40D3H 

BTC 

CC8S28 

03250 



CALL 

Z,2888H 

B7FF 

Fl 

03260 



POP 

AF 

BSOO 

C31A28 

03270 



JP 

261 AH 

B803 

2AB340 

03280 

ATI 

LD 

HL,(40B3H) 

BS06 

EP 

03290 



EX 

DE, HL 

B807 

2A2141 

03300 



LD 

HL,(4121H* 

BSOA 

DF 

03310 



RST 

24 

BBOB 

3805 

03320 



JR 

C, AT5 

B80D 

CD432B 

03330 



CALL 

2843H 

B810 

18C2 

03340 



JR 

ATb 

B612 

Dl 

03350 

ATS 

POP 

DE 

B813 

21D340 

033b 0 



LD 

HL,40D3H 

BS16 

E5 

03370 



PUSH 

HL 

B817 

CDF529 

03380 

AT2 

CALL 

29F5H 

BS1A 

7E 

03390 



LD 

A,<HL> 

B81B 

22B340 

03400 



LD 

(40B3H),HL 

B81E 

El 

03410 



POP 

HL 

B81F 

77 

03420 



LD 

(HL),A 

B820 

23 

03430 



INC 

HL 

B821 

71 

03440 



LD 

(HL),C 

B822 


03450 


1 

INC 

HL 

B823 

70 

03460 



LD 

'HL).B 

B824 

18AF 

03470 



JR 

AT4 



03430 







03490 







03500 


***** 

NEUE READ/-MELDUNG 



03510 





B826 

0DF920 

03520 

READY 

CALL 

20F9H 

B82 Q 

2133B8 

03530 



LD 

HL,Gl 1 

BS2C 

CD 5 238 

03540 



CALL 

3S92H 

B82F 

El 

03550 



POP 

HL 

B830 

C32B1A 

03560 



JP 

1A2BH 

B833 

43 

03570 

611 

DEFM 

'CPLBA3 READY' 

BS3F 

OD 

03580 



DEFB 

ODH 

B840 

00 

03590 

612 

DEFB 

0 

B841 

20 

03ö00 



DEFM 

* MERGE MODE * 

B84E 

OD 

03610 



DEFB 

ODH 

B84F 

00 

03620 



DEFB 

0 



03630 







03640 







03650 


***** 

MERGE 

BEFEHL 



03660 





B850 

3A40B8 

03670 

MERGE 

LD 

A, 1 GI2) 

B853 

B7 

03680 



OR 

A 

B854 

2006 

03690 



JR 

NZ,ME 1 


* ■* 


, rt>, * 3M 
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B856 

2AA440 

03 7 00 


L.D 

HL, 1 40A4H) 

B859 

22°1B8 

037 iO 


LD 

(BASBEG),HL 

B85C 

ED5BF g 40 

03720 

ME1 

LD 

DE,(40F9H’ 

B 860 

1B 

03730 


DEC 

DE 

B86l 

D5 

03740 


F'UEH 

DE 

B862 

CI 

03750 


POP 

BC 

P863 

1 B 

03760 


DEC 

DE 

B864 

1B 

037 7 0 


DEC 

DE 

B865 

1B 

03780 


DEC 

DE 

B866 

1A 

03790 


LD 

A,'DE) 

B867 

B 7 

03800 


OR 

A 

B868 

2005 

03810 


JR 

NZ,ME2 

B86A 

ED43F g 40 

03820 


LD 

(40F9H) ,BC 

BS6E 

1B 

03830 


DEC 

DE 

PS6F- 

13 

03840 

NE 2 

INC 

DE 

B870 

1 3 

03850 


INC 

DE 

BB71 

FD53A440 

03860 


L.D 

(40A4H),DE 

B8 7 5 

3E2A 

03870 


LD 

A, 42 

B877 

3240BS 

03880 


LD 

< G12) , A 

B8 7 A 

C316EB 

038 g 0 


JP 

RETURN 




• 

% 





03910 

m 





03 g 20 

;***** 

R5ET 

BEFEHL 



03930 

• 

1 



P87P 

3A4'*B8 

03° 40 

F(SET 

LD 

A,(GI2> 

BP 80 

B 7 

03°50 


OP 

A 

B8S1 

280P 

03 Q 60 


JR 

Z, RS1 

B883 

2A91B8 

03970 


LD 

HL,(BASBEG * 

P886 

22A440 

03900 


LD 

<40A4H *,HL 

B889 

3E00 

03990 


LD 

A, 0 

Bsee 

3240B8 

04000 


LD 

(Gl 2),A 

BÖSE 

C316&D 

04010 

RS1 

JP 

RETURN 



04020 

• 



0002 


04030 

BASBEG 

DEFS 

r-* 


04040 

t lij. 

04060 

04070 

04080 




04Ö q 0 

;***** 

MI Dt ALS 

STATEMENT 



04100 

• 



BE 5 "' 

D7 

04110 

MID 

RST 

10H 

B8 C 4 

CF 

04120 


R3T 

09 H 

BS95 

2B 

04130 


DE FM 


B8°6 

CD03B g 

04140 


CALL 

MI Dt 

B89 g 

E5 

04150 


PUSH 

HL 

B8 g A 

D5 

04160 


PUSH 

DE 

B89P 

EB 

041 7 ü 


EX 

DE, HL 

B89C 


04180 


INC 

HL 

B89D 

5E 

041 g 0 


LD 

E, - HL.' 

B8 g E 


0420 1 *' 


INC 

HL 

P8 a F 

56 

0421 0 


LD 

D, 'HL.) 

BSAO 

2AA040 

04220 


LD 

HL,'40A0H' 

B8A3 

DF 

04230 


RST 

1SH 

PSA4 

El 

04240 


POP 

HL 

B8A5 

ES 

04250 


PUSH 

HL 

B8A6 

D4FBB8 

04260 


CALL 

NC,MIBS 

P8A9 

EJ 

04270 


POP 

HL 

BSAA 

E3 

0428':’ 


E> 

(SP>,HL 

B8AB 

CF 

04290 


RST 

OBH 
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B8AC 

2C 

04300 


INC 

BSAD 

CD1C2B 

04310 


CALL 

B8B0 

B7 

04320 


OR 

BBBi 

CA4A1E 

04330 


JP 

BSB4 

F5 

04340 


PUSH 

B8B5 

7E 

04350 


LD 

B8B6 

FE2C 

04360 


CP 

B8B8 

3EFF 

04370 


LD 

B8BA 

2004 

04380 


JR 

B8BC 

D7 

04390 


RST 

B8BD 

CD1C2B 

04400 


CALL 

B8C0 

F5 

04410 

MIDI 

PUSH 

B8C1 

CF 

04420 


RST 

B8C2 

29 

04430 


DE FM 

B8C3 

CF 

04440 


RST 

B8C4 

D5 

04450 


DEFB 

B9C5 

CD3723 

04460 


CALL 

B8C8 

E5 

04470 


PUSH 

B8C9 

CDD729 

04480 


CALL 

B8CC 

Dl 

04490 


POP 

B9CD 

CI 

04500 


POP 

B8CE 

Fl 

04510 


POP 

B8CF 

4F 

04520 


LD 

B8D0 

EB 

04530 


EX 

B8D1 

E3 

04540 


EX 

BBD2 

D5 

04550 


PUSH 

BSD 3 

7E 

04560 


LD 

B8D4 

23 

04570 


INC 

B8D5 

5E 

04580 


LD 

B8D6 

23 

04590 


INC 

B8D7 

56 

04600 


LD 

B8D8 

69 

04610 


LD 

B8D9 

2600 

04620 


LD 

B8DB 

19 

04630 


ADD 

B8DC 

2B 

04640 


DEC 

B8DD 

91 

04650 


SUB 

B8DE 

DA4A1E 

04660 


JP 

B8E1 

3C 

04670 


INC 

B8E2 

B8 

04680 


CP 

B8E3 

3001 

04690 


JR 

B9E5 

47 

04700 


LD 

BSE6 

E3 

04710 

MID2 

EX 

B8E7 

7E 

04720 


LD 

B8E8 

07 

J 

04730 


INC 

B8E9 

5E 

04740 


LD 

B8EA 


04750 


INC 

B8EB 

56 

04760 


LD 

B8EC 

El 

04770 


POP 

B8ED 

B8 

04780 


CP 

B8EE 

3801 

04790 


JR 

B8F0 

78 

04800 


LD 

B8F1 

CDF6BS 

04810 

MID3 

CALL 

B8F4 

El 

04820 


POP 

BSF5 

C9 

04830 

04840 

■ 

% 

RET 



04850 

04860 

;UNTERPROGRAMME 

5 

B8F6 

B7 

04870 

MID4 

OR 

B8F7 

C2D609 

04880 


JP 

BBFA 

C9 

04890 


RET 
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L 

28 ICH 
A 

Z,1E4AH 
AF 

A,(HL) 

2CH 

A,OFFH 
NZ,MIDI 
ICH 
2B1CH 
AF 
08H 
’ )’ 

03H 

0D5H ; TOKEN 

2337H 

HL 

29B7H 

DE 

BC 

AF 

C, A 
DE, HL 

(SR),HL 
DE 

A, (HL) 

HL 

E,(HL) 

HL 

D, (HL) 

L, C 

H, 0 
HL, DE 
HL 

^ 1 ”■ ''-*■* . *4’V i < W 

C, 1E4AH 
A 

e 

MC,MID2 

B, A 

(SP),HL 
A,(HL) 

HL 

E, (HL) 

HL 

D, (HL) 

HL_ 

B 

C, MID3 
A, B 
MID4 
HL 


A 

NZ,09D6H 






r 
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B8FB 

ES 

04900 MID5 

PUSH 

HL 

B8FC 

CD432S 

04910 

CALL 

2843H 

BSFF 

El 

04° 20 

POP 

HL 

B900 

C3D30 Q 

04930 

JP 

09D3H 

B903 

CD0D26 

04940 MIDfc 

CALL 

2fcODH 

B g 06 

C3F40A 

04950 

04960 ; 

04970 ; 

04980 ; 

04990 ;***** 
05000 ; 

JP 0AF4H 

LINE ItJPUT BEFEHL 

B90 Q 

CF 

05010 LINE 

RST 

08 H 

B°OA 

89 

05020 

DEFB 

89H 

B c 0B 

CD2828 

05030 

CALL 

2S28H 

B90E 

7E 

05040 

LD 

A,(HL* 

B90F 

FE 23 

05050 

CP 


B911 

CA3B01 

05060 

JF 

7 ,SNEFR 

B Q 14 

CDCD21 

05070 

CALL 

21CDH 

B917 

CD0D26 

0508'** 

CALL 

260DH 

B91A 

CDF40A 

05090 

CALL 

0AF4H 

B91D 

ES 

05100 

PUSH 

HL 

B91E 

D5 

05110 

PUSH 

DE 

B91F 

CD6103 

05120 ,, , 

CALL 

0361H 

B922 

38 OA 

05130 

JP 

C,LI NE 3 

B924 

0600 

05140 

LD 

B, 0 

B926 

CD6828 

05150 

CALL 

2S6SH 

B929 

El 

05160 

POP 

HL 

B92A 

AF 

05170 

XOR 

A 

B92B 

C3331F 

05180 

JP 

1F33H 

B92E 

Fl 

05190 LINE1 

POP 

AF 

B92F 

Fl 

05200 

POP 

AF 

B930 

C3BE1D 

05210 

05220 : 

05230 ; 

05240 s 

05250 ;*m* 
05260 ; 

JP 

INSTR 

1DBEH 

BEFEHL 

B933 

rr 

05270 IN5TR 

RST 

10H 

B934 

C03523 

05280 

CALL 

2335H 

B Q 37 

E* 7 

05290 

RST 

2 OH 

B938 

3E01 

05300 

LD 

A, 01H 

B93A 

C41F2B 

05310 

CALL 

NZ,2B1FH 

B93D 

B7 

05320 

OR 

A 

B93E 

CA4A1E 

05730 

JP 

Z,1E4AH 

B941 

FS 

05340 

PUSH 

AF 

B^42 

E7 

05750 

PST 

2 OH 

B g 43 

C4A0B° 

05360 

CALL 

NZ, INSTF.8 

B Q 4fc 

CDF40A 

053‘ 7 0 

CALL 

0AF4H 

B949 

ED4B2141 

05300 

LD 

BC, f 41 21H,* 

B g 4D 

CS 

05390 

PUSH 

BC 

B94E 

CDA0B9 

05400 

CALL 

INSTF8 

B951 

CF 

05410 

RST 

08H 

B952 

29 

05420 

DEFM 

' ) ’ 

B Q 53 

E3 

05430 

EX 

t BPJ,HL 

B954 

ES 

05440 

PUSH 

HL 

B g 55 

CDD~29 

05450 

CALL 

2°D* 7 H 

B958 

E3 

05460 

EX 

(SP),HL 

B Q 5? 

CDDD29 

05470 

CALL 

2°DDH 

B95C 

Dl 

05480 

POP 

DE 

B g 5D 

CI 

05490 

POP 

BC 


; "INPUT"-TO*EN 


;ERFÜR AUSSPRUNG 
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B95E 

Fl 

05500 


POP 

AF 

B95F 

C5 

05510 


PUSH 

BC 

B960 

F5 

05520 


PUSH 

AF 

B961 

D5 

05530 


PUSH 

DE 

B962 

3D 

05540 


DEC 

A 

B963 

46 

05550 


LD 

B,(HL) 

B964 

23 

05560 


INC 

HL 

B965 

5E 

05570 


LD 

E,(HL) 

B966 

23 

05580 


INC 

HL 

B967 

56 

05590 


LD 

D.(HL) 

B968 

6F 

05600 


LD 

L,A 

B969 

2600 

05610 


LD 

H, 0 

B96B 

19 

05620 


ADD 

HL, DE 

B96C 

E3 

05630 


EX 

(SP),HL 

B96D 

4E 

05640 


LD 

C,(HL) 

B96E 

23 

05650 


INC 

HL 

B96F 

5E 

05660 


LD 

E,(HL) 

B970 

23 

05670 


INC 

HL 

B971 

56 

05680 


LD 

D,(HL) 

B972 

El 

05690 


POP 

HL 

B973 

81 

05700 


ADD 

A,C 

B974 

381D 

05710 


JR 

C,INSTR4 

B976 

ED44 

05720 

IMSTRI 

NEG 


B978 

80 

05730 


ADD 

fi,B 

B979 

47 

05740 


LD 

B, A ’ 

B97A 

3017 

05750 


JR 

MC,INSTR4 

B97C 

04 

05760 


INC 

B 

B97D 

ES 

05770 

INSTR2 

PUSH 

HL 

B97E 

D5 

05780 


PUSH 

DE 

B97F 

C5 

05790 


PUSH 

BC 

B980 

OC 

05800 


INC 

C 

B981 

0D 

05810 

IMSTR3 

DEC 

c 

B982 

2813 

05820 


JR 

Z,INSTR5 

B984 

1A 

05830 


LD 

A,(DE) 

B985 

BE 

05840 


CP 

(HL) 

B986 

13 

05850 

- , 

. INC 

DE 

B987 

23 

05860 


INC 

HL 

B988 

28F7 

05870 


JR 

Z,INSTR3 

B98A 

CI 

05880 


POP 

BC 

B98B 

Di 

05890 


POP 

DE 

B98C 

El 

05900 


POP 

HL 

B98D 

Fi 

05910 


POP 

AF 

B98E 

3C 

05920 


INC 

A 

B98F 

23 

05930 


INC 

HL 

B990 

FS 

05940 


PUSH 

AF 

B991 

1OEA 

05950 


DJNZ 

INSTR2 

B993 

Fl 

05960 

INSTR4 

POP 

AF 

B994 

AF 

05970 


XOR 

A 

B995 

1804 

05980 


JR 

IN3TR6 

B997 

CI 

05990 

IMSTR5 

POP 

BC 

B998 

Dl 

(06000 


POP 

DE 

B999 

El 

06010 


POP 

HL 

B99A 

Fl 

06020 


POP 

AF 

B99B 

CDF827 

06030 

INSTR6 

CALL 

27F8H 

B99E 

El 

(06040 

IMSTR7 

POP 

HL 

B99F 

C9 

06050 


RET 


B9A0 

CF 

06060 

INSTRS 

RST 

08 H 

B9A1 

2C 

06070 


DE FM 

* 

B9A2 

w%J V / 

06080 


JP 

2337H 



(06090 

< 

% 






L X * Ai- - 
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06100 

06110 

06120 






06130 


i ** RESTOPE N **, 18.2.80 -V 1.1> 



Go 140 


; BEARBEITET FUER F.DTASM, 4.°. 81 



06150 


* 

9 




06160 


i BASIC-UNTERPROGRAMMEi 

) P7S 


06170 CHRGE1 

EQU 1D78H 

ZEICHENHOLROUTINE 

2 BOI 


06180 IMTEXP 

EQU 2B01H 

ZEILENNUMMER ERMITTELN 

1B2C 


06190 SLIME 

EQU 1B2CH ; 

ZEILE IN RAM SUCHEN 

06CC 


06200 WSTART 

EQU 06CCH 

ZURUEO ZUM BASIC 

idie: 


06210 EXEC 

EQU 1D1EH ! 

BAS IC PRO GRAMM AUSFUEHRE.N 



06220 


■ 




06230 


; BASIC-ZEIGER: 


4 OFF 


06240 BATAZ 

EQU 40FFH 

DATAZEIGER 

4004 


06250 RST100 

EQU 4004H ;RST lOH-VEl’TQR 



06260 


• 

* 




06270 


S 

* 



06280 

062*0 

06300 


B 

* 

i RESTORE N 

B 

* 


B9A5 

E3 

06310 RE5TN 

EX (SP *,HL 

AUFRUF VON 1DXXH? 

B?Ao 

7C 

06320 


LD A, H 


B9A7 

FE1D 

06330 


CP 1DH 


B9A9 

2810 

06340 


JR Z,RESTNI 

NEIN, RST 10H AUSF. 

B9AB 

FE 20 

06350 


CP 20H 


B9AD 

2005 

06360 


JR NZ,NINT 


B9AF 

7D 

063^0 


LD A,L 


B9B0 

FE 50 

06390 


CP 50H 


B9B2 

2S0 -7 

06390 


JR Z,RESTN1 


B9B4 

E3 

Oö400 MINT 

Ex (SP),HL 


B9B5 

C30000 

06410 CHV10 

JP 0 


B9B8 

El 

06420 NINT1 

POP HL 


B Q B Q 

18FA 

06430 


JR CHV10 


B9BB 

E3 

06440 RESTN1 

EX (SP),HL 


B9BC 

E5 

06450 


PUSH HL 

j * * . 

B9BD 

D7 

06460 


RST 10H 


B p BE 

FE90 

06470 


CP 90H 

=RE STORE"’ 

B9C0 

20F6 

0ö48ü 


JR NZ,NINT1 

NEIN, RST iOH'OHNE INC HL> 

B Q C2 

CI 

064*0 


POP BC 


B9C3 

D7 

06500 


RST 10H 


B9C4 

CA911D 

'»6510 


JP Z,1D91H 


B9C7 

CD022B 

06520 


CALL INTEXP+l 

ZNP DECODIEREN 

B Q CA 

E5 

06530 


PUSH HL 

PQINTFR RETTEN 

B9CE' 

CD2C1B 

06540 


CALI SLINE 

ZEILENADRESSE 

B Q CF. 

OB 

06550 


DEC BC 


B9CF 

EB43FE40 

06560 


LD 'DATAZ),BC 

;NACH DATAZEIGER 

B9D3 

El 

06570 


POP HL 

; POINTER ZURUECK 

B9B4 

CI 

06580 


POP BC 

iPUEU SPRUNGADR. 

E9D5 

C31E1D 

06590 


JP EXEC 

iNAECHSTE ;ZEILENAD*E5S 



06600 

***** 

FORMATIERTES lISTING FuR COLOUR-GENIE ***** 



06610 

***** 

VERSION 1.0 

04.11.33 ***** 



06620 

06630 

***** 

'O 1983 BV M. 

BuNING ***** 



06640 

06650 

***** 

ROM-ADRESSEN 


JB10 


06660 

..ARG 

EQU 1B10H 

; LIST ARGUMENTE AUSWERTEN 

20FE 


06670 

CR 

EQU 2'!FEH 

;GIBT CR AUS 

032A 


06680 OUTCHF 

EQU 032AH 

;GIFT ZEICHEN IN A AUS 

1A» 3 


066*0 HAUPTS 

EQU 1A1SH 

;BASIC HAUPTSCHLEIFE 
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OFAF 

06700 

PRZNR 

EQU 

OFAFH 

;ZEILENNUMMER 

IN HL AUSGEBEN 

1D9B 

06710 

BREAK 

EQU 

1D9BH 

;TASTENDRUCK E 

AUSWERTEN 

39 AD 

06720 

TABAMR 

EQU 

39ADH 

;KEYWDRDTABELLENANFANG NACH HL 


06^30 

06740 

06750 

06760 



06770 

;***** 

SYSTEM- 

-RAM-ADRESSEN 


06780 

• 




40A7 

06790 

BUFANF 

EDU 

40A7H 

ENTHAELT DEN ZEIGER AUF DEN BUFFERANF. 

409C 

06800 

F'VF LAG 

EQU 

409CH 

FLAG <0=BILOSCHIRM, 1=DRUCKER) 

40A6 

06810 

VPOS 

EQU 

40A6H 

BILDSCHIRM-SPALTEN-P05ITI0N 

409B 

06820 

PROS 

EQU 

409BH 

i DRUCK ER-SPALTEN-POSITION 

40A2 

06830 

AK TZ NR 

EQU 

40A2H 

! SPEICHERZELLEN FuR AKTUELLE ZNR 

40EC 

06840 

REFZNR 

EQU 

40ECH 

[SPEICHERZELLEN FuR BEZUG 


0fc850 ; 

06860 ; 

068" 7 0 ; 

06880 ; 

06890 ;#**** BENUTZTE TOK EN 
06900 ; 


008F 


06910 

IF 

EQU 

OBFH;IF-TOKEN 

OOFB 


06920 

RFMAP 

EQU 

OFBH; APOSTROPH REMARK* 

0000 


06930 

ZENDE 

EQU 

OH;ZEILENENDE 

0081 


06940 

FCGLQU 

EQU 

081H;FCOLOUR 

OOFF 


06 Q 50 

DGPTQK 

EQU 

OFFH; ERSTES BvTE EINES DOPPELTOKEN 



06960 

m- 

* 





06970 

1 





06980 

;***** 

START 

DER FLIST-ROUTINE 



06990 

• 

% 



B g DB 

DD214FBC 

07000 

FL.IST 

LD 

IX, VAF:ADR ;IX ZEIGT AUF DEN VARIABLENBEREI! 

B9DC 

DD360327 

07010 


LD 

iIX+3>,39 ;LETZTE SPALTE AUF BILDSCHIRM 

B Q EO 

DP3t>0603 

07020 


LD 

f I X+6),3;MAXIMALE EINRuCK UMG AUF BILSSCHIRM 

B9E4 

C3F8B9 

07030 


JP 

FLIST1 ;EIN5PPUNG IN GEMEINSAMEN TEIL 


07040 

07050 

07060 

07070 


***** START DER FLLIST-ROUTINE 


B9E' 7 

DD214FBC 

07080 FLLIST 

LD 

IX,VARADR 

;IX ZEIGT AUF VARIABLENBEREICH 

B9EB 

DD36034F 

07090 

LD 

(IX+3>,79 

;LETZTE SPALTE AUF DRUCKER 

B Q EF 

DD36060A 

07100 

LD 

(IX+6),10 

;MAXIMALE EIHRuCKUNG AUF DRUCKER 

B9F3 

3E01 

07110 

LD 

A, 1 ;i=DRUCK ER 

B9F5 

329C4Ö 

07120 

LD 

(PVFLAG),A 

;AUSGABE AUF DRUCKER SCHALTEN 


07130 

07140 

07150 

07160 




07170 

;***** 

GEMEINSAMER TEIL 

FuR FORMATIERTFS LIST U. LLIST 



07180 

■ 

% 





B9F8 

CI 

07190 

FLIST1 

POP 

BC ;RuCKSPRUNGADPESSE ENTFERNEN 


B9F9 

CD101B 

07200 


CALL 

LARG; 1. 

ZEILENADR. NACH BC, 2. ZNR 

AUF STACK 

B9FC 

C5 

07210 


PUSH 

BC ; 1. 

ZEILEN5DRESSE RETTEN 


B9FD 

21FFFF 

07220 

NExTL 

LD 

HL, OFFFFH ;BIREK TMODE SETZEN 


BAOO 

22A240 

07230 


LD 

(AK TZNFU 

,HL ;UND IN ENTSPRECHENDEN 

ZELLEN ABSPEICHERN 

BA03 

El 

07240 


POP 

HL ; 1. 

ZEILENADRESSE NACH HL 


BA04 

Dt 

07250 


POP 

DE ;2. Z 

NP NACH DE 


BA05 

4E 

07260 


LD 

C,(HL) 

;ZEILENZEIGER LADEN 


BA06 


07270 


INC 

HL 



BA07 

46 

07280 


LD 

B,(HL) 

;(MSB) 


BAOB 

23 

07290 


INC 

HL 
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BA09 

78 

07300 


LD 

Aj B 

BAOA 

Bl 

07310 


OR 

C ;PROGRAMMENDE ERREICHT 0 

BAOB 

CA191A 

07320 


JP 

Z,HAUPTS+1 ;FALLS JA, DANN ZUR HAUPTSCHLEIFE 

BAOE 

CD9B1D 

^ j J 

07340 

! 

CALL 

BREAK ;BEHANDLUNG VON TASTENDRUECtEN 

BA11 

C5 

07350 


PUSH 

BC ;NAECHSTE ZEILENADRESSE RETTEN 

BA12 

4E 

07360 


L.D 

C, (HL) ; AK TUELL.E ZNR NACH BC (LSB) 

BAI 3 

23 

07370 


INC 

HL 

BA14 

46 

07380 


LD 

B,(HL) ;(MSB) 

BA15 

T 

^ J 

07390 


INC 

HL 

BA16 

C5 

07400 


PUSH 

BC ;ZNR RETTEN 

BA17 

E3 

07410 


EX 

(SP),HL ;ZEIGER RETTEN, ZNR NACH HL 

BAI 8 

EB 

07420 


EX 

DE, HL ; 2. ZNR NACH HL, ZNR MACH DE 

BAI 9 

DF 

07430 


RST 

018H;ZNR 2. ZNR° 

BA1A 

CI 

07440 


POP 

BC ;ZEIGER MACH BC. 

BA1B 

DA191A 

07450 


JF 

C,HAUPTS;WENN 2. ZNR ERREICHT DANN HAUPTSCHLEIFE 

BA1E 

E3 

07460 


EX 

(SP),HL ;2. ZNR RETTEN, NAECHSTE ZEILENA. NACH HL 

BA1F 

E5 

07470 


PUSH 

HL ;NAECHSTE ZEILENADRESSE RETTEN 

BA20 

C5 

07480 


PUSH 

BC ;ZEIGER RETTEN 

BA21 

EB 

07490 


EX 

DE,HL ;AKTUELLE ZNR NACH HL 

BA22 

22EC40 

07500 


LD 

(REFZNR),HL ;ALS BEZUG ABSPEICHERN 

BA25 

CDAFOF 

07510 


CALL 

PRZNR ;ZEILFNNUMMER AUSGEBEN 



07520 

• 

1 



BA28 

DD360000 

07530 


LD 

(IX-KO ,0;INDENT-COUNTER NULL SETZEN 

BA2C 

DD360500 

0^540 


LD 

(IX+5),0;THEN-ELSE-FLAb RUECK SETZEN 

BA30 

ED4BA740 

07550 


LD 

BC,<BUFANF) ;BC ZEIGT AUF TEXTBUFFER-ANFANG 

BA34 

16FF 

07560 


LD 

D,255 ;TEXTBUFFER-LAENGE AUF 255 SETZEN 

BA36 

ei 

07570 


POP 

HL ;ZEIGER VOM STACK HOLEN 

BA37 

2B 

07580 


DEC 

HL ;ZEIGER VOR 1. TEXTZEICHEN SETZEN 



07590 

• 



BA38 

D7 

07600 


RST 

10H ;LEERZEICHEN AM ZEILENANFANG uBERßEHEN 

BA79 

FE3A 

07610 


CP 

;IST 1. RELEVANTES ZEICHEN 

BA3B 

2001 

07620 


JR 

MZ,FLIST3 ;FALLS NEIN, DANN ZEICHEN AUSWERTEN 

BA3D 

D7 

07630 

FL IS TE¬ 

RST 

ICH ;FALLS JA, DANN *uBERGEHEN 

BA3E 

FE 00 

07640 

FL. IST3 

CP 

ZENDE ;IST ZEILENENDE-ZEICHEN ERREICHT 

BA40 

CA12BB 

07650 


JP 

Z,LINEND;FALLS JA, DANN AUSSFRUNG 

BA43 

FE3A 

07660 


CP 

’:’ ;IST ZEICHEN ':' 

BA45 

200A 

07670 


JR 

NZ,FLIST5 ;FALLS NEIN, DANN WEITERE AUSWERTUNG 



07680 

■ 

% 



BA47 

D7 

07690 

FLI5T4 

RST 

10H ;NAECHSTES RELEVANTES ZEICHEN SUCHEN 

BA48 

FE3A 

07700 


CP 

':' ;IST ES WIEDER ' : ’ ° 

BA4A 

28FB 

07710 


JR 

Z,FLIST4;FALLS JA, DANN * uBERGEHEN 

BA4C 

CD38BB 

07720 


CALL 

PRINT ;FALLS NEIN, DANN TEXTBUFFER AUSGEBEN 

BA4F 

18ED 

07730 


JR 

FLIST3 ;UND ZEILE WEITER ABARBEITEN 



07740 

* 

4 



BA51 

A7 

07750 

FLI5T5 

AND 

A ;FLAGS GEMAESS A SETZEN 

BAS 2 

F2FFBA 

07760 


JP 

F.NÜTÜK ;FALLS KEIN TOKEN, SPRUNG NACH NOTOK 


ÖA55 

BA57 


FE93 

2015 


BA59 CDF9BB 
BA5C 23 
BA5D 7E 
BA5E FEFB 


07770 
07780 
07790 
<‘*7800 
07810 
07820 
07830 TO* 
07840 
07850 ; 
0°360 
07870 
07880 
07890 


***** TOKEN AUSWERTEN 


CP REM ; REM-TOK EN' 1 

JR NZ, TÜK 3 ;FALLS NICHT, WEITER AUSWERTEN 

CALL TOKBUF ;'REM’ AUSGEBEN 

INC HL ;HL ZEIGT AUF NAECHSTES ZEICHEN 

LD A,(HL) ;ZEICHEN MACH A BRINGEN 

CP REMAP ;IST ZEICHEN REMARK-APOSTROPH7 
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BA60 

2002 

07900 


JR 

N2,TOI 2 ;FALLS NEIN, DANN WEITERBFARBEITEN 

BA62 


07910 

TOI 1 

INC 

HL ;HL ZEIGT AUF NAECHSTES ZEICHEN 

BA63 

7E 

0^920 


LD 

A, *HL> ;ZEICHEN MACH A BRINGEN 

BA64 

FE 00 

07930 

TOI' 2 

CP 

ZENDE ; ZEILENENDE ERREICHT"' 

BA66 

CA12BB 

07940 


JP 

Z,LINEND;FALLS JA, DANN AUSSPRUNG 

BA6 q 

CD2DBB 

07950 


CALL 

INBUF ;FALLS NEIN, DANN ZEICHEN NACH BUFFER 

BA6C 

18F4 

07 q 60 

07970 

• 

* 

JR 

TOM; NAECHSTES ZEICHEN BEARBEITEN 

BA6E 

FE88 

07980 

T0K3 

CP 

DATA; DATA-T01 EhP 

BA70 

201F 

08000 

• 

4 

JR 

NZ,TOI 6 ;FALLS NEIN, DANN WEITERBEARBEITEN 

BA72 

CDF9BB 

08010 


CALL 

TOIBUF ;’DATA' AUSGEBEN 

BA75 


08020 

TOI 4 

INC 

HL ;HL ZEIGT AUF NAECHSTES ZEICHEN 

BA76 

7E 

08030 


LD 

A,(HL) ;ZEICHEN NACH A 

BA77 

FE22 

08040 


CP 

’ " ’ ; ANFuHRUNGSSTR I CHE" 1 

BA79 

2008 

08050 


JR 

NZ,T0K5 ;FALLS NEIN, ZEICHEN WEITER BEARBEITEN 

BA7B 

CD18BB 

08060 


CALL 

QUOTE ;TEXT HINTER DEN QUOTES BEARBEITEN 

BA7E 

CA12BB 

08070 


JP 

2,LINEND;AUSSPRUNG FALLS ZERO-FLAG GESETZT 

BA81 

18F2 

08080 


JR 

TOI 4;SONST NAECHSTES ZEICHEN BEARBEITEN 

BA83 

FEOO 

08090 

TOI 5 

CP 

ZENDE ; ZEILENENDE ERREICHT"» 

BAB5 

CA12BB 

08100 


JP 

Z,LINEND;FALLS JA, AUSSPRUNG 

BA8B 

FE3A 

08110 


CP 

ERREICHT" 1 

BASA 

28BB 

08120 


JR 

Z,FlIST4;MULTIPLE AUSBLENDEN, BUFFER AUSGEBEN 

BAeC 

CD2DBB 

08130 


CALL 

INBUF ;ANSONSTEN ZEICHEN IN DEN TEXTBUFFER 

BASF 

1SE4 

08140 

08150 

• 

JR 

TOI 4;NAECHSTES ZEICHEN BEARBEITEN 

BA91 

FE8F 

08160 

TOI' 6 

CP 

IF ; IF-T01 EN" 1 

BA93 

2011 

08170 


JR 

NZ,TOI 7 ;FALLS NICHT, WEITER 

BA95 

DD3400 

08180 


INC 

(IX+O) ;INDENT-COUNTER INC 

BA98 

DD360801 

08190 


LD 

(IX+8),1;SET IF-INDENT-FLAG 

BA9C 

DD360A00 

08200 


LD 

(IX+10),0 ;RESET ELSE-FLAb 

BAAO 

DD360901 

08210 


LD 

(I X+9),1;SET IF-FLAG 

BAA4 

1353 

08220 

08230 

* 

JR 

TOHO ;UND HINTER DIE TO)EN-AUSWERTUNG 

BAA6 

FECA 

08240 

T0K7 

CP 

THEN;THEN-TO) EN° 

BAA8 

20 OB 

08250 


JR 

NZ,T0L8 ;FALLS NICHT, WEITER 

BAAA 

CD38BB 

08260 


CALL 

PRINT ;BUFFER LEEFEN 

BAAD 

DD360501 

08270 


LD 

(IX+5),1;SET THEN-ELSE-FLAG 

BABi 

DD360900 

08280 

08290 

* 

1 

LD 

(IX+9),0;RESET IF-FLAG 

BAB5 

DDCB0946 

08300 

TO) 8 

BIT 

0,(IX+9);IF-FLAG RuC)'SESETZT° 

BAB9 

2825 

08310 


JR 

Z,TOI 9 ;FALLS JA, WEITERAU5WETUNS uBERGEHEN 

BABB 

FEBE 

08320 


CP 

OBEH; BEFEHLS TO) EN" 1 

BABD 

F2E0BA 

08330 


JP 

P,TO)9 ;FALLS NICHT, WEITERAUSWERTUNG uBERGEHEN 

BACO 

CD38BB 

08340 


CALL 

PRINT ;BUFFER LEEREN 

BAC3 

3E54 

08350 


LD 

A, ’T’ 

BAC5 

CD2DBB 

08360 


CALL 

INBUF 

BAC8 

3E48 

08370 


LD 

A, ’H’ 

BACA 

CD2DBB 

08380 


CALL 

INBUF 

BACD 

3E45 

08390 


LD 

A, ’E’ 

BACF 

CD2DBB 

08400 


CALL 

INBUF 

BAD2 

3E4E 

08410 


LD 

A, ’N’ 

BAD4 

CD2DBB 

08420 


CALL 

INBUF 

BAD7 

7E 

08430 


LD 

A, (HL) ; A) TUELLES TO)'EN WIEDER NACH A 

BADS 

DD360501 

08440 


LD 

(IX+5),1;SET THEN-ELSE-FLAG 

BADC 

DD360900 

08450 

08460 

ft 

4 

LD 

i IX+9),0;RESET IF-FLAG 

BAEO 

FE95 

08470 

TOI 9 

CP 

ELSE;ELSE-TO) EN" 1 

BAE2 

2015 

08480 


JR 

NZ,TOKIO;FALLS NICHT, WEITERES uBERGEHEN 

BAE4 

DD360501 

08490 


LD 

(IX+5),1;SET THEN-ELSE-FLAG 
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BAEB 

DD360900 

08500 


LD 

fIX+9>,0 

;RESET IF-FLAG 

BAEC 

DDCB0A46 

08510 


BIT 

0, (IX-t-10) ; ELSE-FLAG GESETZT“’ 

BAFO 

DD360A01 

08520 


LD 

(IX+10), 

1 ;SET ELSE-FLAG 

BAF4 

2803 

08530 


JR 

Z,TOK10 

;FALLE NICHT, WEITERE AUSFÜHRUNGEN uBE*G 

BAF6 

DD3500 

08540 


DEC 

ay+O) 

: SONST INDENT--COUNTER DEC 



08550 

P 

* 




BAF9 

CDF*BB 

08560 

TOK 10 

CALL 

TOK BUF 

;TOI EM DECODIEREN U. IN BUFFER SCHREIBEN 

BAFC 

C33DBA 

08570 


JP 

FLIET2 

;NAECHSTES ZEICHEN BEARBEITEN 



08580 

« 

1 






085*0 

• 

* 






08600 

• 

* 






08610 

• 

* 






08620 

; ***** 

NICHT- 

•TOKEN AUSWERTEN 



08630 

m 

1 




BAFF 

FE22 

08640 

NOTEN 

CP 

1 »’ ;ANF 

uHRUNGSSTRICHE* 

BB01 

2008 

08650 


JR 

NZ,NOTOK1 ;FALLS NEIN, WEITER AUSWERTEN 



08660 

* 

* 




BB03 

CD13BB 

08670 


CALL 

QUOTE 

;ZEICHEN NACH QUOTE AUSWEPTEH 

BB06 

28 OA 

08680 


JR 

Z,LINENE 

»iFALLS ZEPÜ-FLAG GESETZT AUSSPRUNG 

BBOB 

C33DBA 

08fa90 


JP 

FLIST2 

;SONST NAECHSTES ZEICHEN AUSWEPTEN 



03700 

* 

* 




BBOB 


08710 

N0T0F1 

LD 

A,<HL) 

;AKTUELLES ZEICHEN NACH A 

BBOC 

CD2DBB 

08720 


CALL 

INBUF 

;ZEICHEN IN DEN TEXTBUFFER BRINGEN 

BBOF 

C33DBA 

08730 


JP 

FLIST2 

;UND NAECHSTES ZEICHEN AUSWEPTEN 


08 7 40 


BB12 CD38BB 
BB15 C3FDB9 


08750 

08760 

08770 


08780 

08790 


** ** * 


08800 LINEND 
08810 


08820 

08830 

08840 

08850 

0BB60 


AUSSPRUNG BEI ZEILENENDE 

CALL PRINT ;BUFFER AUSDRÜCKEN 

JP NEXTL ;ZUM AUSWERTEN DER NAECHSTEN ZEILE 


OS 8 70 
08880 
08890 
08900 
08910 
08*20 
08930 


tm* VON HAUPT PRO GRAMM ANGESPRUNGENE UNTERPROGRAMME 


***** QUOTE 

***** ‘BEHANDELT TE>T IN ANFuHPUNGSSTRIChENI 


08940 


BB18 

CD2DBB 

08950 

QUOTE 

CALL 

INBUF ;ANFuHRUNGSSTRICHE IN DEM BUFFER BRINGEN 

BB1B 

y 

08*60 


INC 

HL ;AUF NAECHSTES ZEICHEN ZEIGEN 

BB1C 

7E 

08970 


LD 

A,(HL) ;NACH A BRINGEN 

BB1D 

FEOO 

08980 


CP 

ZENBE ; ZEILENENDE ERREICHT“' 

BB1F 

2002 

08990 

09000 

t 

* 

JR 

NZ,QUOTE1 ;FALLS NEIN, DANN WEITER ARBEITEN 

BB21 

AF 

09010 


XOP 

A ;FALLS JA, DANN END-FLAG (ZERO* SETZEN 

BB22 

C9 

0*020 

09030 

• 

* 

RET 

;UND ZURuD 

BB23 

FE22 

09040 

QUOTE1 

CP 

T ;WIEDER ANFuHRUNGSSTRICHE^ 

BB25 

20F1 

0 Q 050 


JR 

NZ,QUOTE;FALlS NEIN, SCHLEIFE 

BB27 

CD2DBB 

0*060 


CALL 

INBUF ;FALLS JA, DANN QUOTES NACH BUFFER 

BB2A 

AF 

090 7 0 


XOR 

A ; A=0 

PB2B 

3C 

'.»9080 


INC 

A ; A= 1 ^DAMIT ZERO-FLAG Rl<C1 GESE t ZT* 

BB2C 

C9 

09090 


RET 

;AUSSPRUNG MIT RuClGESETZTEM END-FLAG 
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09100 






09110 






09120 






09130 






09140 

***** 

INBUF 




09150 

***** 

's BRINGT 

ZEICHEN IN A IM DEN BUFFER, VERHINDERT 



0 Q 160 

;***** 

ÜBERLAUFEN DES BUFFERS) 



09170 




BB2D 

02 

09180 ] 

[NBUF 

LD 

(BC),A ;SCHREIBT A GEMAESS BUFFEPZEIGER EIN 

BB2E 

BD7702 

09190 


LD 

'IX+ 2 ),A;NACH (IX+2) ALS LETZTES AU5GE6EPENES 

BB31 

7A 

09200 


LD 

A,D ;VERBLEIBENDE BUFFERLAENGE NACH A 

BB32 

FE 00 

09210 


CP 

0 ; IST BUFFER VOLL' 1 

BB34 

C8 

09220 


RET 

Z ;FALLS JA, DANN RuD SPRUNG 

BB35 

03 

09230 


INC 

BC ;FALLS NEIN, DANN BUFFERZEIGEP INC. 

BB36 

15 

09240 


DEC 

D ;VERBLEIBENDE BUFFERLAENGE DEC. 

BB37 

C? 

09250 


RET 

;UND RuD SPRINGEN 



09260 






092^0 






09280 






0*5290 






09300 

***** 

PRINT 




0931'*' 

***** 

(GIBT TEXTBUFFER FORMATIERT AUS) 



09320 




BB3B 

F5 

09330 1 

-'RI NT 

PUSH 

AF ;ZEICHEN IN A RETTEN * 1 ' 

BB39 

E5 

09340 


PUSH 

HL ;HL ALS ZEIGER RETTEN 

BB3A 

AF 

09350 


XOR 

A ; A=0 

BB3B 

CB2DBB 

09360 


CALL 

INBUF ;BUFFERINHALT MIT 0 AB5CHLIESSEN 

BB3E 

2AA740 

09370 


LD 

HL,(BUFANF) ;HL ZEIGT AUF BUFFERANFANG 

BB41 

7E 

09330 

PRIKFi 

LD 

A,(HL) ;ZEICHEN NACH A 

BB42 

FE 00 

09390 


CP 

0 ; BUFFER ENDE"’ 

BB44 

284A 

09400 


JR 

Z,PRINTS;FALLS JA, AUSSPRUNG 

BB46 

CDA5BB 

09410 


CALL 

INDCHK ;INDENT COUNTER AUFBEREITEN 

BB49 

3E20 

09420 1 

PR1NT2 

LD 

A,’ ’ LEERZEICHEN NACH A 

BB4B 

CB2A03 

09430 


CALL 

OUTCHF ;UND AUSGEBEN 

BB4E 

CDDDBB 

09440 


CALL 

PVFOS ;BILDSCHIRM ODER DRUD EPSPALTE HOLEN 

BP51 

DD7E01 

09450 


LD 

A, (IX + njUND NACH A BRINGEN 

BB54 

FE06 

OQ4f>0 


CP 

6 ; 6. SPALTE ERREICHT' 1 

BB56 

20 F1 

09470 


JR 

NZ,FRINT2 ;FALLS NEIN, DANN SCHLEIFE 

BB58 

AF 

09480 

PRINT3 

XOR 

A ; A-0 

BB59 

DDB604 

0049,} 


OR 

(IX+4> ; IST AUFBEREITETER INDENT COUNTFP ^ 

BB5C 

2808 

09500 


JR 

Z, PF:INT5; FALLS JA, WEITER 

BB5E 

CDEFBB 

09510 


CALL 

BLAN)5 ;SONST 5 LEERZEICHEN AU5GFBEN 

PB61 

DD3504 

09520 


DEC 

(I/+4) ;AUFBEREITETEN INDENT COUNTER DEC. 

BB64 

18F2 

09530 


JR 

PRINT3 ;UND SCHLEIFE 



09540 

• 



BB66 

7E 

09550 

PRINTS 

LD 

A, (HL) ;ZEICHEN NACH A 

BB67 

FE00 

09560 


CP 

0 ; IST ENDE ERREICHT"' 

PB69 

2S2E 

09570 


JR 

Z,PRINT9 ;FALLS JA, DANN ZUM AUSSPRUNG 

BB6B 

CDDDBB 

09580 


CALL 

PVP OS ; SPALTFNPÜSITIC’N NACH tIX + 1) HOLEN 

BB6E 

DD7E01 

09590 


LD 

A, (IX +1);UND NACH A BRINGEN 

BB71 

DDBE03 

09600 


CP 

(I x +3) ; IST A GLEICH MAX. SPAL TENFOSITIQN' 1 

BB74 

2807 

09610 


JR 

Z,PRINT 6 ;FALLS JA, NEUE ZEIlE EINLEITEN 

BB76 

7E 

09620 


LD 

A, (HL) ;A)TUELLES ZEICHEN NACH A 

BB77 

CD2A03 

09630 


CALL 

OUTCHF ;UND ZEICHEN AUSGEBEN 

BB 7 A 


09640 


INC 

HL ;ZEIGER AUF NAECHSTES ZEICHEN RuDEN 

BB7B 

18E9 

09650 


JR 

PRINTS ;UND SCHLEIFE 

BB7D 

3A9C40 

09660 

PRINT6 

LD 

A,(PVFLAG) ;PRINTER-VIDEO FLAG LADEN 

BB80 

FEOO 

09670 


CP 

0 ; STFHT PV FLAG AUF BILDSCHIRM“' 

BB82 

2305 

09680 


JP 

Z, PRINT 7 ;FALLS JA, DANN BILDSCHIRM BEHANDLUNG 

BB84 

CDFE20 

09690 


CALL 

CR ;SONST CR AUF DRUD FR AU56FBEM 


j i 







2*2.2 Basicerue 1 terung COL.BAS 


QuelIprogramm 


Seite 107 


BB87 

18BS 

09700 

JR 

PRINT1 ;UND NAECH5TE PHTSIl ALI3CHE ZEILE 

BB89 

7 E 

09710 PRINT7 

LD 

A,(HL? ;ZEICHEN FuR LETZTE BILDSCHIRMSPALTE 

BBBA 

CD2A03 

09720 

CALL 

OUTCHF ;AUSGEBEN 'ES ERFOLGT AUTOMATISCH CP ! ) 

BB8D 

23 

09730 

INC 

HL ;ZEIGER ZEIGT AUF NAECHSTES ZEICHFN 

PB8E 

18B1 

09740 

JR 

PRINT1 ;UND NAECHSTE PHVS11 AL ISCHE ZEILE 

BB90 

CDBDBB 

09750 PPINT8 

CALL 

POPOS ;AKTUELLE SPALENPÜ5TTI0N NACH (I\+l) 

BB93 

AF 

09760 

XOR 

A ; A=0 

BB94 

DDBEOl 

09770 

CP 

(IX+P ;STEHT CURSOR AUF l.SPALTE* 

BB97 

2807 

09780 

JR 

Z,PRIN10;FALLS JA, 1EIN CR AUSGEBEN 

BB°9 

CDFE20 

09790 PPINT9 

CALL 

CR ;SONST CR AUSGEBEN 

BB9C 

ED4BA740 

09800 PRIN10 

LD 

BC,(BUFANF? ;BC ZEIGT WIEDER AUF BUFFER ANFANG 

BBAO 

16FF 

09810 

LD 

D,255 ;D AUF VOLLE LAENGE SETZEN 

BBA2 

El 

09820 

POP 

HL ;HL WIEDER ALS ZEIGER ZUPuD HOLEN 

BBA3 

Fl 

09B30 

POP 

AF ;7EICHEN NACH A ZURuCl 

BBA4 

C9 

09840 

RET 

;UND RuCISPRUNG 



09850 ; 





0*860 ; 





09870 ; 





09880 ; 





09890 ;****» 

INDCHK 




0°900 ;***** 

(JUSTIERT INDENT-COUNTER? 



09910 ; 



BBA5 

DD7E00 

09920 INDCHI 

LD 

A,(IX+OliINDENT-COUNTER NACH A 

BBAB 

DD7704 

09930 

LD 

(IX+4?,A;A NACH AUFBEREITETEM INDENT-COUNTER 

BBAB 

AF 

09940 

XOR 

A ; A=0 

BBAC 

DDB605 

09950 

OR 

(IX+5? ; THEN-ELSE-FLAG GESETZT" 1 

BBAF 

2907 

09960 

JR 

Z,IND15 ;FALLS MEIN, DANN WEITER 

BBB1 

DD3504 

0*970 

DEC 

(Ix+4) ;SONST AUFBEREITETEN INDENT-COUNTER DEC 



09980 ; 



BBB4 

DDCBOB a 6 

09990 IND15 

BIT 

0, (IX+ 8?;IF-INDENT-FLAG GESETZT* 

BBB8 

2807 

10000 

JR 

Z,INDCH1;FALLS NEIN, DANN WEITER 

BBBA 

DD3504 

10010 

DEC 

(IX+4) ;SONST AUFBEREITETEN INDENT--COUNTER DEC 



10020 ; 



BBBD 

AF 

10030 INDCH1 

XOR 

A ; A=0 

BBBE 

DDB604 

10040 

OR 

(IX+4) ;IST AUFBEREITETER INDENT-COUNTER = 0* 

BBC1 

F2C8BB 

10050 

JP 

P,INDCH2;FALLS JA, DANN WEITER 



10060 ; 



BBC 4 

DD760400 

10070 

LD 

(IX+4),0;SONST AUFBEREITETEN INDENT-COUNTER = 0 



10080 ; 



BFCS 

DD 7 E06 

10090 INDCH2 

L.D 

A,(IX+ 6 );MAX. INDENT NACH A 

BBCB 

DDBEO4 

10100 

CP 

(IX+4' ;IST INDENT \ LEINER GLEICH MAX. INDENT 

BBCE 

F2D4BB 

10110 

JP 

P,INDCH3;FALLS JA, DANN WEITER 



10120 ; 



BBD1 

DD 7 704 

10130 

LD 

(IX+4),A;SONST INDENT GLEICH MAX. INDENT SETZEN 



10140 ; 



BBD4 

DD360500 

10150 INDCH3 

LD 

(IX+5),0;THEN-ELSE-FLAG PUEC1SETZEN 

BBB8 

DD360300 

10160 

LD 

(IX+ 8 ), 0;IF-INDENT-FLAG RuCHSETZEN 

BBDL 

C9 

10170 

RET 

;UND MIT AUFBEREITETEM INDENT ZURUED 



10180 ; 





10190 ; 





10200 ; 





10210 ; 





10220 ;***** 

POPOS 




10230 ;♦#*** 

'BRINGT 

SPALTENPOSITION VON DRUD EP ODER BILDSCHIRM NAC 



10240 ; 



BBBD 

3AA640 

10250 POPOS 

LD 

A, (VPOSp VIDEO SPALTENPOSITION MACH A 

BBEA 

DD 7 *01 

10260 

LD 

'IX+1>,A;WEITER NACH (P + P 

PBE3 

3A°C40 

10270 

LD 

A,(PVFLAb? ;PVFLAG NACH A 

B8E6 

B 7 

10280 

OP 

A ;A)IUELLE AUSGABE AUF VIDEO* 

BBE7 

C8 

10290 

RET 

Z ;FALLS JA, ZURUECK 
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BBE8 

3A9B40 

10300 

LD 

A, (PROS) ;S0NST DF'LO ER5PALTE NACH A 

BBEB 

DD7701 

10310 

LD 

(IX +1) , A; UND WEITER NACH UX+1) 

BBEE 

C9 

10320 

RET 

;UND ZURUED 


10730 ; 

10340 ; 

10350 ; 

10360 ; 

10370 ;*m» BLANK5 

10380 ;***** (GIBT 5 LEERZEICHEN AUS) 
10790 ; 


BBEP 

0605 

10400 BLANi5 

LD 

B,5 ;SCHLEIFENZAEHLER SETZEN 

BBF1 

3E20 

10410 BLANI 

LD 

A,’ ’ ;LEERZEICHEN NACH A 

BBF3 

CD2A03 

10420 

CALL 

OUTCHF ;UND AUSGEBEN 

BBF6 

10F* 

10430 

DJNZ 

BLAN) ;SCHLEIFE 

BBF8 

C9 

10440 

10450 ; 

10460 ; 

10470 ; 

10480 ; 

104 Q 0 

10500 ;***** 
10510 ; 

10520 TO)BUF 

RET ;SONST ZURUED 

TO) BUF 

(DECODIERT TO)EN UND SCHREIBT ES IN DEN BUFFER) 

BBF9 

3EFF 

LD 

A,255 ;A=255 

BBFB 

BA 

10530 

CP 

D ; IST BUFFER NOCH LEER"* - ‘ 

BBFC 

2 BOA 

10540 

JR 

Z.TO)BUisFALLS JA, WEITER 

BB^E 

3E20 

10550 

LD 

A,’ ’ ;LEERZEICHEN NACH A 

BC00 

DDBE02 

10560 

CP 

(IX+2) ;IST LETZTES AUSGEGEBENES Z. LEERZEICHEN'' 

PCO 3 

2803 

10570 

JR 

Z,TO)BUljFALLS JA, WEITER 

BC05 

CD2DBB 

10580 

CALL 

INBUF ;SONST LEERZEICHEN IN DEN BUFFER 

BC08 

7E 

10590 TO)BU1 

L.D 

A, (HL) ; A) TUELLE5 TO) EN NACH A 

BC09 

DD360700 

10600 

LD 

(IX+7) ,0; DOPPELTO) EN--FLAG RuC) SETZEN 

BCOD 

FEFF 

10610 

CP 

DOPTOK ; IST A) TUELLES TOFEN EIN DOPPELTO) EN'' 

ECOF 

2004 

10620 

JR 

NZ,NODOTO ;FALLS NEIN, FLAG RuC).GESETZT LASSEM 

BC11 

DD360701 

10630 

LD 

tIX+7),liSONST DOPPELTO)EN-FLAG SETZEN 

BC15 


10640 NODOTO 

INC 

HL. -.ZEIGER FUER ROM-EINSPRUNG JUSTIEREN 

BC16 

P67F 

10650 

SUB 

7FH ; TO) EN - 7F LIEFERT NR DES ) EYWORD 

BC18 

E5 

10660 

PUSH 

HL ;CODEZEIGER RETTEN 

BC19 

5F 

10670 

LD 

E,A ;NR. DES )EYWORD NACH E 

BC1A 

CDAD79 

10680 

CALL 

TABANF ;LAEDT DEN ANFANG DER KEYWORDTAB. NACH HL 

BC1D 

7E 

10690 TO)BU2 

LD 

A,<HL' ;ZEICHEN LADEN 

BC1E 

B7 

10700 

OR 

A ;ANFANG DES NAECH5TEN tEYWORD ERREICHT 0 

BC1F 


10710 

INC 

HL sZEIGER AUF NAECHSTES ZEICHEN 

BC20 

F21DBC 

10720 

JP 

P,TO)BU2;FALLS NEIN, DANN WEITERSUCHEN 

BC23 

ID 

10730 

DEC 

E ; GEWÜNSCHTES ) EYWORD ERREICHT"’ 

BC24 

20F7 

10740 

JR 

NZ,TO)BU2 ;FALLS NEIN, DANN WEITEF5UCHEN 

BC26 

E67F 

10750 

AND 

7FH ;WORTANFANGSMAR) IERUNG ENTFERNEN 

BC28 

CD2DBB 

10760 TO)BU3 

CALL 

INBUF ;UND ZEICHEN IN DEN BUFFER 

BC2B 

7E 

10770 

LD 

A, (HL* -.ZEICHEN DES ) EYWORD LADEN 

BC2C 

23 

10780 

INC 

HL ;ZEIGER AUF NAECHSTES ZEICHEN 

BC2D 

B7 

10790 

OR 

A ; 1. ZEICHEN DES NAECHSTEN )EYWORD 0 

BC2E 

F228BC 

10800 

JP 

P,TO)BU3;FALLS NEIN, DANN WEITER AUSGEBEN 

BC31 

El 

10810 

POP 

HL ;CODEZEIGER ZURuC) 

BC32 

2B 

10820 

DEC 

HL ;UND ZRuC)JUSTIEREN 

BC33 

AF 

10830 

XOR 

A ; A=0 

PC34 

DDBE07 

10840 

CP 

(IX+7) ; DOPPELTO) ENFLAG RuC) GESETZT*"' 

BC37 

2810 

10850 

JR 

Z,TO)BU4;FALLS JA, NORMALER AUSSPRUNG 

BC39 

7E 

10860 

LD 

A, 'HL) ;BEARBEITETES TO) EN NACH A 

BC3A 

FE81 

10870 

CP 

FCOLOU ;WAR ES DAS FCOLOUR-TO)EN° 

BC3C 

200 B 

10880 

JR 

NZ,TO)BU4 ;FALLS NEIN, NORMALER AUSSPRUNG 

BC3E 

n"' 

^ j 

10830 

INC 

HL ;ZEIGER AUF ZEICHEN NACH T01EN SETZEN 
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BC3F 7E 
PC40 2B 
BC Ä 1 FE52 
BC43 2004 
BC45 CD2BBB 
BC4S 23 
PC49 3E20 
BC4B CD2DBB 
BC4E C q 


PC4F 00 
BC50 00 
BC51 00 
BC52 00 
BC53 00 
BC54 00 
BC55 00 
PC56 00 
BC57 00 
BC58 00 
BC5 q 00 


10900 
10910 
1 *''920 
10930 
10 q 40 
10 q 50 
10960 
10970 
10980 

io qg o 
11000 
11010 
11020 
11030 
1104 '-' 
11050 
11060 
11070 
11080 
110*0 
11100 
11110 
11120 
11130 
11140 
11150 
11160 
11170 
11180 
11190 
11200 
11210 
11220 


TCH BU4 


L.B A, 'HL) ;UMD ZEICHEN MACH A 

DEC HL ;ZEIGER FuR AUSSPRUNG JUSTIEREN 

CP ’R’ ; IST ES ’R’ 

JR N7,TÜ1BÜ4 ;FALLS NEIN, NORMALER AUSSPRUNG 

CALL INBUF ;’R' IN DEN BUFFER LADEN 

INC HL ;ZEIGER ZUM AUSSFRUNG JUSTIEREN 

LD A,' ' ;LEERZEICHEN NACH A 

CALL INBUF ;UND AUSGEBEN 

RET 


***** VARIABLENSPEICHER 


VARADP 


DEFB 

DEFP 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 


(IXHD INDENT COUNTER 

MX + 1) PRINT BZW. VIDEO-SPALTE 

UX+2) LETZTES IN BUFFER GE5CHR. ZEICHEN 

(UO VORGEGEBENE 7EILENLAENGE 

<IX+4> AUFBEREITETER INDENT COUNTER 

UX+5) THEN-ELbE-FLAG *1 =GEsETZTj 

ax+ö> MA'*. INDENT VORGABE 

HD 7 ) DOPPELTOFEN-FLAG • 1 =DÖPPELTGF EID 

(IA8) IF-INDENT- FLAG 

MXh 9) IF-FLAG 

aXnlO) ELSE-FLAG 


***** 

***** 

***** 


EUCHEN IM BASIC-TEXT FuR TPS--BO U. COLOUR-GENIE ***** 
VERSION 1.0 28.11.83 ***** 

(C) l q 83 BY M. BuNING ***** 


***** ROM-ADRESSEN 


072A 

11230 

SHOCHR 

EQU 

32 AH 

; GIBT ZEICHEN IN A AUS 

0361 

11240 

BETETR 

EQU 

3t, 1H 

5LIEST ZEILE IN DEN BUFFER 

OFAF 

11250 

SHOLIN 

EQU 

OFAFH 

;GIBT ZEILENNUMMER IN HL AUS 

1BC0 

11260 

CODE 

EQU 

1 BL OM 

;ERZEUGT ZWISCHENCODE 

2B75 

11270 

SHOMSG 

EQU 

ÖB^SH 

;GIBT STRING AUS 

1D9B 

11280 

STOP 

EQU 

1D°BH 

;WERTET BREAF UND SHIFT FL. 


112*50 

* 





11300 

;***** 

SYSTEM- 

-RAM-ADRES5EN 


11310 

P 

* 




40 A4 

11320 

BSTF 

EQU 

40A4H 

;ZEIGER AUF BASIC-ANFANG 

40A6 

11 330 

CUFSP 

EQU 

40A6H 

;CURSOR-SPALTE 


11340 

m 

1 





11350 

;***** 

TOF EN 




11360 

• 




0088 

11370 

DATAT 

EQU 

88H 

; DATA 

0093 

11380 

PEMT 

EQU 

q 3H 

; PEM 


BC5A DD21D5BD 


11390 
11400 
11 410 
11420 
11430 
11440 
1 1450 
11460 
1 1 470 
11480 
114 q ‘-' 


iTART DER SUCH-ROUTINE 


i v, n ag 


;IX ALS ZEIGER AUF DEN FLAG-BEREICH 
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BC5E 0D360000 

11500 

LD 

(IX+O),0 

;T-FLA6 RÜCKSETZEN 

BC62 3E01 

11510 

LD 

A,1 


BC64 32D4BD 

11520 

LD 

(NF), A 


BC67 2192BD 

11530 

LD 

HL,STRM 


BC6A CD752B 

11540 

CALL 

SHOMSG 


BC6D CD6103 

11550 STRIN 

CALL 

GETSTR 


BC70 23 

11560 

INC 

HL 


BC71 7E 

11570 

LD 

A, (HL) 


BC72 B7 

11580 

OR 

A 


BC73 CA16BD 

11590 

JP 

Z,RETURN 

;RÜCKKEHR, FALLS NICHTS EINGEGEBEN 

BC76 FE4Ö 

11600 

CP 

» a. * 


BC78 200F 

11610 

JR 

NZ,ST2 

♦ 

BC7A 23 

11620 

INC 

HL 


BC7B 7E 

11630 

LD 

A, OHL) 


BC7C FE40 

11640 

CP 

’S’ 


BC7E 2008 

11650 

JR 

NZ,STi 


BC80 23 

11660 

INC 

HL 


BC81 7E 

11670 

LD 

A,<HL) 

. 

BC82 B7 

11680 

OR 

A 


BC83 CA16BD 

11690 

JP 

Z ,RETURN 

jRÜCKKEHR, FALLS NICHTS EINGEGEBEN 

BC86 1809 

11700 

JR 

3T3 


BC88 2B 

11710 ST1 

DEC 

HL 


BC89 CDCG1B 

11720 ST2 

CALL 

CODE 


BC8C DD360001 

11730 

LD 

(IX+0),1 1 

; T-FL.AG SETZEN ~ '■ “'■***“ ■' ’ •*'" 

BC90 23 

11740 

INC 

HL 


BC91 22D0BD 

11750 ST3 

LD 

(STR),HL 


BC94 2AA440 

11760 

LD 

HL, (BSTP) 


BC97 7E 

11770 

LD 

A.(HL) 

♦ 

BC98 B7 

11780 

OR 

A 


BC99 2006 

11790 

JR 

MZ, SU 


BC9B 23 

11800 

INC 

HL 


BC9C 7E 

11810 

LD 

A,(HL) 


BC9D B7 

11820 

OR 

A 


BC9E 2860 

11830 

JR 

Z,NOPGM 


BCAO 2B 

11840 

DEC 

HL 


BCA1 2B 

11850 SU 

DEC 

HL 


BCA2 23 

11860 GETPTR 

INC 

HL 


BCA3 5E 

11870 

LD 

£, (HL) 


BCA4 23 

11880 

INC 

HL 


BCA5 56 

11890 

LD 

D,(HL) 


BCA6 AF 

11900 

XOR 

A 


BCA7 B3 

11910 • 

OR 

E 

^ * r w- V4-. -VT, P.-./T * - ■+* r . 1 rt ■ • , ' . 

BCA8 C2AFBC 

11920 

JP 

NZ,GETLIN 


BCAB B2 

11930 

OR 

D 

* 

BCAC CA09BD 

11940 

JP 

Z,ENDBAS 


BCAF 23 

11950 GETLIN 

INC 

HL 


BCBO 5E 

11960 

LD 

£, (HL) 


BCB1 23 

11970 

INC 

HL 


BCB2 56 

11980 

LD 

D, (HLi 


BCB3 ED53D2BD 

11990 

LD 

(LIN),DE 


BCB7 23 

12000 SCAN 

INC 

HL 


BCB8 0600 

12010 

LD 

B,0 


BCBA ED5BD0BD 

12020 

LD 

DE,(STR) 


BCBE 1A 

12030 SCI 

LD 

A,(DE) 


BCBF B7 

12040 

OR 

A 


BCCO C2C8BC 

12050 

JP 

NZ, 3C3 


BCC3 CD6EBD 

12060 

CALL 

PRLINE 

;AKTUELLE ZEILENNUMMER AUSGABEN 

BCC6 1830 

12070 

JR 

SC4 


BCC8 4E 

12080 SC3 

LD 

C,(HL) 


BCC9 OC 

12090 

INC 

C 
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BCCA 

OD 

12100 


DEC 

L 


BCCB 

CAA2BC 

12110 


JP 

Z,GETPTR 


BCCE 

B9 

12120 


CP 

C 


BCCF 

DD360100 

12130 


LD 

■IX + 1),0;u-FLAG RuP SETZEN 

BCD3 

2004 

12140 


JR 

NZ,5C31;BEI NICHT-uBEREINSTIMMUNG FLAG LASSEN 

BCD5 

DD360101 

12150 


LD 

(IX+i),ijSONST u- 

FLAG SETZEN 

BCD9 

AF 

12160 

5C31 

XOR 

A ; A-0 


BCDA 

DDBEOO 

12170 


CP 

'IX+ü> ;IST T-FLAG RuCF GESETZT? 

BCDD 

280D 

12180 


JR 

Z,SC32 ;FALLS JA, DANN SPRUNG 

BCDF 

79 

12190 


LD 

A,C ;SONST TEXTZEICHEN NACH A 

BCEO 

FE93 

12200 


CP 

REMT ; IST ES REM-TO* EN" 1 

BCE2 

2836 

12210 


JR 

Z,SREM ;FALLS JA, DANN AUSWERTEN 

BCE4 

FE88 

12220 


CP 

DATAT ;IST ES DATA-T01 EN“ 

BCE6 

233E 

12230 


JR 

Z,SDATA ;FALLS JA, DANN AUSWERTEN 

BCE8 

FE22 

12240 


CP 

i IST ES ANFÜHRUNGSZEICHEN" 1 

BCEA 

2861 

12250 


JR 

Z,SGUGTE;FALLS JA, AUSWERTEN 

BCEC 

AF 

12260 

SC32 

XOR 

A ; A=0 


BCED 

DDBE01 

12270 


CP 

(IX+1) ; u-FLAG GESETZT' 1 . 

BCFO 

2806 

12280 


JR 

Z,SC4 :FALLS NEIN, DANN NEUER SUCHBEGINN 

BCF2 

04 

12290 

5C35 

INC 

B 


BCF3 

23 

12300 


INC 

HL 


BCF4 

13 

12310 


INC 

DE 


BCF5 

C3BEBC 

12320 


JP 

SCI 


BCF8 

48 

12330 

SC4 

LD 

C,B 


BCF9 

AF 

12340 


XOR 

A 


BCFA 

47 

12350 


LD 

B, A 


BCFB 

ED42 

12360 


SBC 

HL, BC 


BCFD 

C3B7EC 

12370 


JP 

SCAN 


BDOO 

21B0BD 

12380 

NOPGM 

LD 

HL,NPGM 


BD03 

CD752B 

12390 


CALL 

SHOMSG 


BD06 

C316BD 

12400 


JP 

RETURN 


BD09 

3AD4BD 

12410 

ENDBAS 

LD 

A,(NF) 


BDOC 

B7 

12420 


OR 

A 


BDOD 

CA16BD 

12430 


JP 

Z, RETURN 


BDIO 

21A1BD 

12440 


LD 

HL,NFM 


BDI 3 

CD 7 52B 

12450 


CALL 

SHOMSG , 

*♦ ■ a 

BDI 6 

21D7BD 

124*0 

RETURN 

LD 

HL,NULL i 

ZEIGER AUF 3 NULLEN 1 

BDI 9 

C9 

12470 


RET 





12480 

* 




BDI A 

CD60BP 

12490 

SREM 

CALL 

EOUAL 


BD1D 

23 

12500 

SREM1 

INC 

HL 

HL ZEIGT AUF NAECHSTES TEXTZEICHEN 

BD1E 

7E 

12510 


LD 

A, 'HD 

UND ZEICHEN NACH A 

BD1F 

FE 00 

12520 


CP 

0 

ZEILENENDE ERREICHT" 1 

BD21 

20FA 

12530 


JR 

NZ* SREML 

FALLS NEIN, DANN SCHLEIFE 

BD23 

C3A2BC 

12540 


JP 

GETPTR 

SONST ZUR NAECHSTEN ZEILE 



12550 

* 




BD26 

CD60BD 

125*0 

SDATA 

CALL 

EQUAL 


BD2 Q 

— * 

3 2570 

5DATA1 

INC 

HL 

HL AUF NAECHSTES ZEICHEN 

BD2A 

7 E 

12580 


LD 

A,(HL > 

U. ZEICHEN NACH A 

BD2B 

FEOO 

12590 


CP 

r, 

ZEILENENDE ERREICHT 7 * 

BD2D 

2003 

12600 


JR 

NZ,SDATA 7 

FALLS NEIN, WEITER 

BD2F 

C3A2BC 

12610 


JP 

GETPTR 

SONST NEUE ZEILE 

BD32 

FE 22 

12620 

SDATA2 

CP 

i n ’ 

QUOTE "■ 

BD34 

200F 

12630 


JR 

NZ,5DATA5 

FALLS NEIN, WEITERE ABFRAGE 

BD36 


12640 

3DATA3 

INC 

HL 

ZEIGER AUF NAECHSTES ZEICHEN 

BD37 

7E 

12650 


LD 

A,(HL) 

U. NACH A 

BD3S 

FEOO 

12660 


CP 

0 

ZEILENENDE ERREICHT? 

BD3A 

2003 

12670 


JR 

NZ*SDAIA4 

FALLS NEIN, DANN WEITER 

BD3C 

C3A2BC 

12680 


JP 

GETPTR 

SONST NEUE ZEILE 

BD3F 

FE22 

12*90 

5DATA4 

CP 

' 11 ? 

QUOTE 7 
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BD41 

20F3 

12700 


JR 

NZ,SDATA3 

;FALLS NEIN, DANN SCHLEIFE 

BD43 

18E4 

12710 


JR 

SDATA1 

;SONST HAUFTSCHLEIFE 

BD45 

FE3A 

12720 SDATA5 

CP 

r . •' 

• 

;NAECHSTES STATEMENT? 

BD47 

20E0 

12730 


JR 

NZ,SDATA1 

;FALLS NEIN, HAUPTSCHLEIFE 

BD49 

2B 

12740 


DEC 

HL 

;SONST IN ZEILE WEITERSUCHEN 

BD4A 

C3B7BC 

12750 


JP 

SCAN 




12760 ; 





BD4D 

CD60BD 

12770 SQU0TE 

CALL 

EQUAL 


BD50 

23 

12780 SQU0T1 

INC 

HL 

;HL AUF NAECHSTES ZEICHEN 

BD51 

7E 

12790 


LD 

A,(HL) 

;U. NACH A 

BB52 

FE 00 

12800 


CP 

0 

;ZEILENENDE ERREICHT? 

BD54 

2003 

12810 


JR 

NZ,SÜU0T2 

;FALLS NICHT, DANN WEITER 

BD56 

C3A2BC 

12820 


JP 

6 ETPTR 

;SONST NEUE ZEILE 

BD59 

FE22 

12830 SQU0T2 

CP 

MIT 

;ERNEUT QUOTE? 

BD5B 

20F3 

12840 


JR 

NZ,SQUOT1 

;FALL NEIN, SCHLEIFE 

BD5D 

C3B7BC 

12850 


JP 

SCAN 

;SONST IN DIESER ZEILE WEITERSUCHEN 



12860 ; 







12870 i 







12880 ; 







12890 ; 







12900 ; 

***** 

BENÜTZTE 

UNTERPROGRAMME 




12910 ; 





BD60 

AF 

12920 EQUAL 

XOR 

A 

; A=0 

BD61 

DDBE01 

12930 


CP 

(IX+1) 

;IST ÜBEREINSTIMMUNGSFLA6 GESETZT? 

BD64 

C8 

12940 


RET 

Z ' ' 

;FALLS NEIN, RÜCKSPRUNG 

BD65 

13 

12950 


INC 

DE 

;DE AUF NAECHSTES ZEICHEN IN STRING 

BD66 

1A 

12960 


LD 

A, (DE) 

;UND NACH A 

BD67 

FE00 

12970 


CP 

0 

;IST STRINGENDE ERREICHT? 

BB69 

€0 

12980 


RET 

NZ 

;FALLS NICHT, DANN RÜCKSPRUNG , 

BB6A 

CD6EBD 

12990 


CALL 

F'RLINE 

;SONST ZEILENNUMMER AUSGEBEN 

BD6D 

C9 

13000 


RET 


;UND ZURÜCK 



13010 ; 







13020 ; 




* 



13030 ; 







13040 ; 





BD6E 

E5 

13050 F'RLINE 

PUSH 

HL 


.BD6F 

C5 

13060 


PUSH 

BC 


BD70 

CD9B1D 

13070 


CALL 

STOP 

;stoppen wahrend des ausgeben 

BD73 

AF 

13080 


XOR 

A 


BD74 

32D4BD 

13090 


LD 

(NF),A 


BD77 

3AA640 

13100 


LD 

A,(CURSP) 


BD7A 

FE21 

13110 ' 


CP 

33 - ■ 

57 BEI TRS-80, 33 BEI COLOUR-ÖENIE 

BD7C 

FA84BD 

13120 


JP 

M,PRLINI 


BD7F 

3E0D 

13130 


LD 

A, 13 


BD81 

CD2A03 

13140 


CALL 

SHOCHR 


BD84 

2AB2BD 

13150 F’RLINl 

LD 

HL,(LIN) 


BD87 

CDAF0F 

13160 


CALL 

SHOLIN 


BD8A 

3E20 

13170 


LD 

A, 20H 


BD8C 

CD2A03 

13180 


CALL 

SHOCHR 


BD8F 

CI 

13190 


POP 

BC 


BD90 

El 

13200 


POP 

HL 


BD91 

C9 

13210 


RET 





13220 

i 






13230 







13240 







13250 







13260 

***** 

TEXTE 





13270 





BD92 

1D1E 

13280 STRh 

DEFW 

1E1DH 


BD94 

53 

13290 


DEFM 

'Suchen nach:' 
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BDAO 00 

13300 


DEFB 



BDA1 4E 

13310 NFM 

DE FM 

'Nicht gefunden' 


BDAF 00 

13320 


DEFB 


* 

BDBO 4B 

13330 NPGM 

DEFM 

’l ein BASIC-Prograrrm iin Speicher’ 

BDCF 00 

13340 


DEFB 

0 



i . 

i 3360 






13370 






13380 






13390 

***** 

VARIARLEN-BEPEICH 



13400 





BP DO 000'*' 

13410 STP 

DE FW 

0 ; ZEIGER AUF STRINGANFANG 

BPD2 0000 

13420 LIN 

DE FW 

0 ;ZWISCHENSPEICHER FuP ZEILENNUMMEP 

BDD4 00 

13430 MF 

DEFB 

0 ;F LAG * 1« 

-FEINE uBEREISTIMM. GEF UNDFtM 

BDD5 00 

13440 FLAG 

DEFB 

0 ;FLAG * 

*TOF EN-MODE) 

BDD6 00 

13450 


DEFB 

0 ;FLAG t1* 

=BYTE-uBEPEINSTIMMUNC) 

BDD7 00 

13460 NULL 

DEFB 

,*) t < . ■■ 

4 ' * * » — ** v K ** 

PDDB >:o 

13470 


DEFB 



BDD9 00 

13480 


DEFB 




1 3490 


; * BASIC-PPOGPAMM-FAD EP * 


13500 


; ENTFERNT ALLE LEERRAEUME UND \ OMMENTARE 


13510 


; COPYRIGHT BY LUIDGEP ROED RATH, 26.9.81 


13520 


* 

4 




13530 


: BAS ^UNTERPROGRAMME 



13540 


* 

f 



1 D7S 

13550 ChF'GET 

EQU 

1D78H ; 

RST ICH UP 

1F07 

13560 SEOL 

EOU 

1F07H 

ZEILENENDE SUCHEN 

1 BIO 

13570 LARG 

EOU 

1B10H 

2 ARGUMENTE ANALYSIEREN 

1E5B 

13580 DECLN1 

EQU 

1E5BH 

ZNR DECODIEREN 

1B2C 

13590 SL.INE 

EQU 

1B2CH 

ZEILE IM PROGRAMMTEST SUCHEN 

0FA7 

13600 PRZNR1 

EQU 

0FA7H 

’ IN ’ ZNF AUSGEBEN 

OFAF 

13610 PRZUR 

EQU 

OFAFH 

ZNR AUSGEBEN 

2B 7 5 

13620 F’RINTT 

EQU 

2B 7 5H 

TEXT AUSGEBEN 

20 FE 

13630 CP 

EQU 

20FEH 

CR AUSGEBEN 

1 AE8 

.. 13640 ENDML 

EQU 

1AE8H 4<i - * 

HAUPTSCHLEIFENENDE . . 

1E4A 

13650 FCEFP 

EQU 

1E4AH 

FC-ERROR 


13660 


• 




13670 


; BASIC 

ZEIGER 



13680 


* 



1979 

13690 

TEXT6 

EQU 

1929H 

TEXT 'READY' 

40 A4 

13700 

TFX T A 

EQU 

40A4H 

ZEIGER AUF PROGRAMMTExTAMFANG 

40F9 

13710 

7 ARA 

EQU 

40F9H 

ZEIGER AUF ANFANG DER VARTAB 

4191 

13720 

ILLV 

EQU 

4191H 



13730 


f 




13740 


; TOI ENS 



13750 


* 

4 



OOSD 

13760 

GOTO 

EQU 

8 DH 


00 SE 

13770 

RUN 

EOU 

8 EH 


0091 

13 7 80 

GOBUB 

EQU 

91H 


0093 

13790 

REM 

EQU 

93H 


0095 

13800 

ELSE 

EQU 

95H 


009F 

13810 

PESUME 

EQU 

^FH 


r 'OCA 

13820 

THEN 

EQU 

OCAH 


0038 

13830 

DATA 

EQU 

88 H 


•jOAA 

13840 

i IL.LT 

EQU 

OAAH 



1 3850 


4 




13860 


■J ILL 




139 7 0 


# 

% 



BDDA 28OF 

13380 

1 ILL 

JR 

ZJ ILL2 


BPDC 730D 

13890 


JP 

C t \ ILL2 
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BDDE FEGE 

13900 

CP 

OCEH 

BDEO 2809 

13910 

JR 

Z, KIL.L2 

BDE2 FE2E 

13920 

CP 

7 3 

• 

BDE4 2805 

13930 

JR 

Z.KILL2 

BDE6 2B 

13940 

DEC 

HL 

BDE7 D7 

13950 

RST 

10H 

BDE8 C33B01 

13960 

JP 

SNERR 

BDEB GDIDIB 

13970 KILL2 

CALL 

L.ARG 

BDEE Dl 

13980 

POP 

DE 

BDEF D5 

13990 

PUSH 

DE 

BDFO C5 

14000 

PUSH 

BC 

BDF1 CD2C1B 

14010 

CALL 

SLINE 

BDF4 69 

14020 

LD 

L,C 

BDF5 60 

14030 

LD 

H, B 

BDF6 Dl 

14040 

POP 

DE 

BDF7 DF 

14050 

RST 

18H 

BDF8 D5 

14060 

PUSH 

DE 

BDF? DA4A1E 

14070 

JP 

C,FCERR 

BDFC CD74BF 

14080 

CALL 

LEN 

BDFF 2191BF 

14090 

LD 

HL,TEXT1 

BEO2 CD752B 

14100 

CALL 

PRINTT 

BE05 2AA440 

14110 

LD 

HL,(TEXTA) 

BE08 2B 

14120 

DEC 

HL 

BE09 D5 

14130 

PUSH 

DE 

BEOA Dl 

14140 REF1 

POP 

DE 

BEOB 23 

14150 

INC 

HL 

BEOC 7E 

14160 

LD 

A,(HL) 

BEOD 23 

14170 

INC 

HL 

BEOE B6 

14180 

OR 

(HL) 

BEOF 287D 

14190 

JR 

Z,PACK 

BEU 23 

14200 

INC 

HL 

BE12 5E 

14210 

LD 

E,(HL) 

BE13 23 

14220 

INC 

HL 

BE14 56 

14230 

LD 

L -* 

X 

r 

BE15 D5 

14240 

PUSH 

DE 

BE16 D7 

14250 REF2 

RST 

10H 

BE17 A7 

14260 

AND 

A 

BE 18 28F0 

14270 

JR 

Z, REF1 

BE1A FE22 

14280 

CP 

? II > 

BEIC 2008 

14290 

JR 

NZ,JUMP 

BE1E D7 

14300 STRING 

RST 

10H 

BE1F A7 

14310 

AND 

A 

BE20 28E8 

14320 

JR 

Z,REF1 

BE22 FE22 

14330 

CP 

3 11? 

BE24 20F8 

14340 

JR 

NZ,STRING 

BE26 FEFF 

14350 JUMP 

CP 

ÜFFH 

BE28 23 

14360 

INC 

HL 

BE29 28EB 

14370 

JR 

Z,REF2 

BE2B 2B 

14380 

DEC 

HL 

BE2C FE8D 

14390 

CP 

GOTO 

BE2E 2819 

14400 

JR 

Z,JUMP1 

BE30 FE91 

14410 

CP 

GOSUB 

BE32 2815 

14420 

JR 

Z,JUMP1 

BE34 FESE 

14430 

CP 

RUN 

BE36 2811 

14440 

JR 

Z,JUMP1 

BE38 FE9F 

14450 

CP 

RESUME 

BE3A 280D 

14460 

JR 

Z,JUMPi 

BE3C FE95 

14470 

CP 

ELSE 

BE3E 2804 

14480 

JR 

Z,JUMP2 

BE40 FECA 

14490 

CP 

THEN 


v >* f ** . t ** v * - 
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BE42 

2002 

14500 

JR 

NZ,REF2 

BE44 

D7 

14510 JUMP2 

RST 

10H 

BE 45 

2B 

14520 

DEC 

HL 

BE46 

30CE 

14530 

JR 

NC,REF2 

BE48 

AF 

14540 

XOR 

A 

BE49 

F5 

14550 JUMP1 

PUSH 

AF 

BE4A 

CD5B1E 

14560 

CALL 

DECLN1 

BE4D 

2B 

14570 

DEC 

HL 

BE4E 

Fl 

14580 

POP 

AF 

BE4F 

D69F 

14590 

SUB 

RESUME 

BE51 

B 2 

14600 

OR 

D 

BE52 

B3 

14610 

OR 

E 

BE53 

2 SC 1 

14620 

JR 

Z,REF2 

BE55 

E5 

14630 

PUSH 

HL. 

BE56 

CD2C1B 

14640 

CALL 

SLINE 

BE59 

30 IC 

14650 

JR 

NC,UNDEFL 

BE5B 

69 

■ 14660 , 

LD 

L,C ' 

BE5C 

60 

14670 

LD 

H, B 

BE5D 


14680 

INC 

HL 

BE5E 


14690 

INC 

HL 

BE5F 

97 ; 

14700 

INC 

HL 

BE 60 

D7 

14710 

RST 

10H 

BE61 

FE3A 

14720 

CP 

». j 

• 

BE63 

CC781D 

14730 

CALL 

Z,CHRGET 

BE 66 

FE93 

14740 

CP 

REM 

BE 6 B 

2002 

14750 

JR 

NZ,REF3 

BE>)A 

36 FE 

14760 

LD 

(HL),OFEH 

BE 6 C 

El 

14770 REF3 

POP 

HL. 

BE 60 

07 

14780 

RST 

10H 

BEfcE 

FE2C 

14790 I 

CP 

+ 1 

4 

BE 70 

3ESD 

14800 1 

LD 

A,GOTO 

BE72 

2SD5 

14810 

JR 

Z,JUMPi 

BE74 

2B 

14820 1 

DEC 

HL 

BE75 

1B9F 

14830 

JR 

REF2 

BE77 

21C6BF 

14840 UNDEFL 

LD 

HL,TEXT3 

BE7A 

CD752B 

14850 

CALL 

PRINTT 

BE7D 

EB 

14860 

EX 

DE, HL 

BE7E 

CDAFOF 

14870 

CALL 

PRZNR 

BE81 

01 

14880 

PÜP 

DE 

BES 2 

El 

14890 

POP 

HL 

BE83 

E5 

14900 

PUSH 

HL 

BE84 

05 

14910 

PUSH 

DE 

BE85 

CDA70F 

14920 

CALL 

PRZNR1 

BE 88 

El 

14930 

POP 

HL 

BE89 

CDFE20 

14940 

CALL 

CF; 

BEBC 

1888 

14950 

JR 

REF2 

BEBE 

21B5BF 

14960 PACK 

LD 

HL,TEXT2 

BE91 

CD752B 

14970 

CALL 

PRINTT 

BE94 

El 

14980 

POP 

HL 

BE95 

Dl 

14990 

POP 

DE 

BE96 

ES 

15000 

PUSH 

HL 

BE97 

D5 

15010 

PUSH 

DE 

BE9S 

2B 

15020 1 

DEC 

HL 

BE99 

23 

15030 PACKL 

INC 

HL 

BE9A 

7E 

15040 PACKL 1 

LD 

A,(HL) 

BE9B 

23 

15050 

INC 

HL 

BE9C 

B 6 

15060 

OR 

(HL) 

BE9B 

CA3ABF 

15070 

JP 

Z,PACKE 

BEAO 

23 

15080 

INC 

HL 

BEA1 

5E 

15090 

LD 

E,(HL) 
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BEA2 


i 5100 

HC 

HL 

BE. A3 

56 

15110 

LD 

D,\HL) 

BE A4 


15120 

INC 

HL 

BEA5 

E3 

15130 

EV 

SP)« HL 

BEA6 

DF 

15140 

PST 

1SH 

EEA7 

E3 

15150 

Ex 

' SFO , HL. 

BEA8 

DA3ABF 

15160 

JP 

C, PAD E 

BE AB 

ES 

15170 

PUSH 

HL 

BEAC 

’E 

15180 CHAP 

LD 

A, <HL» 

BE AD 

A7 

1519m 

AND 

A 

PEAE 

2670 

15200 

JP 

Z, EOL 

PEPO 

F EFF 

15210 

CP 

OFFH 

DEB2 


15220 

INC 

Hl 

BEB 3 

2^. 

15230 

INC 

HL 

BEB4 

28Fö 

15240 

JR 

Z, CHAP 

BEFö 

2P 

15250 

DEC 

HL 

BEB 7 

2B 

15260 

DEC 

HL 

PEPS 

FE 20 

15270 

CP 

\ i 

BEBA 

2824 

15280 

JR 

7,SPACE 

EEPC 

FEOA 

152 Q 0 

CP 

OAH 

BEBE 

2820 

15300 

JR 

:,SPACE 

BECO 

FE Q 3 

15310 

CP 

PEM 

BEC2 

282B 

15320 

JP 

Z,DELREM 

BEC4 

FEFE 

15330 

CP 

OF EH 

BECö 

2826 

15340 

JP 

2,DELR1 

BECS 

FEB8 

15350 

CP 

DATA 

BECA 

283A 

15360 

JR 

2,FDATA 

BECC 

FE3A 

15370 

CP 

’ . ’ 

* 

BECE 

282 Q 

15380 

JR 

2,COLON 

BEDO 

FE22 

15390 CPSTP 

CF 1 

' M ' 

BEDE 

£. -> 

15400 CHAR1 

INC 

HL 

BED3 

20D 7 

15410 

JR 

NZ,CHAR 

BEP5 

2B 

15420 

DEC 

HL 

BEB 6 

D7 

15430 STP1 

PST 

10H 

BED7 

A7 

15440 

AND 

A 

BEDS 

284E 

15450 

JR 

Z, EOL 

BEDA 

Do 2 2 

15460 

SUB 

* 11 3 

BEDC 

20 FS 

15470 

JP 

NZ, STF’l 

BEDE 

18F0 

15480 

JR 

C'P'STR 

BEEO 

CDE5BE 

154*0 SPACE 

CALL 

USPACE 

BEE3 

1SC7 

155<X' 

JP 

CHAP 

BEE5 

E5 

•» 15510 USPACE 

PUS*- 

HL 

BEE 6 

D7 

15520 

RST 

l-'-H 

BEE* 7 

Dl 

15530 

POP 

DE 

BEES 

D5 

15540 DEL 

PUSH 

DE 

BEE? 

CD61BF 

15550 

CALL 

DELETE 

BEEC 

El 

155&0 

POP 

HL 

BEED 

C9 

155 7 0 

PET 

4 

BEEE 


155B0 DELR1 

INC 

HL 

BEEF 

ES 

15590 DELREM 

PUSH 

HL 

BEFO 

CD071F 

15ö00 

CALL 

SEOL 

PEF3 

Dl 

15610 

POP 

DE 

BEF 4 

CDE8BE 

15620 

CALL 

DEL 

BEF" 7 

18B3 

15630 

JR 

CHAR 

BEF Q 

ES 

15640 COLON 

PUSH 

HL 

BEFA 

D? 

15650 

RST 

ION 

BEFB 

El 

1566Ö 

DQP 

HL 

BEFC 

FE93 

15670 

CP 

PEM 

BEFE 

28 EO 

15680 

JR 

Z,SPACE 

BFOO 

FEFE 

15690 

CP 

OFEH 
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BF02 28DC 

15700 

JR 

Z, SPACE 

BF04 13CC 

15710 

JR 

CHAR1 

BF06 23 

15720 PDATA 

INC 

HL 

BF07 7E * 

15730 

LD 

A, (HL) 

BFOS FE20 

15740 

CP 

y ? 

BFOA CCE5BE 

15750 

CALL 

I ,USPACE 

BFOD 2B 

15760 

DEC 

HL 

BFOE D7 

15770 

RST 

10H 

BFOF 2B9B 

15780 

JR 

Z,CHAR 

BF 11 FE22 

15790 

CP 

y ti y 

BF13 200D 

15800 

JR 

NZ, SCI 1 

BF15 D7 

15810 DS 

RST 

10H 

BF16 A7 

15820 

AND 

A 

BF17 280F 

15830 

JR 

Z, EOL 

BF19 FE22 

15840 

CP 

? ii > 

BF1B 20F8 

15850 

JR 

NZ, DS 

BF1D 18E7 

15860 

JR 

PDATA - ■ 

BF1F D7 

15870 SC 

RST 

iüH 

BF20 289A 

15880 

JR 

Z, CHAR 

BF22 FE2C 

15890 SC11 

CP 

? ? 

1 

BF24 20F9 

15900 

JR 

NZ, SC 

BF26 18BE 

15910 

JR 

PDATA 

BF28 Dl 

15920 EOL 

POP 

DE 

BF29 DF 

15930 

RST 

13H 

BF2A C299BE 

15940 

JP 

NZ,PACKL 

BF2D 1B 

15950 

DEC 

DE 

BF2E 1B 

15960 

DEC 

DE 

BF2F 1B 

15970 

DEC 

DE 

BF30 1B 

15980 

DEC 

DE 

BF31 D5 

15990 

PUSH 

DE 

BF32 23 

16000 

INC 

HL 

BF33 CD61BF 

16010 

CALL 

DELETE 

BF36 Et 

16020 

POP 

HL 

BF37 C39ABE 

16030 

JP 

PACKL1 

BF3A Dl 

16040 PACKE 

POP 

DE 

BF3B 2AA440 

16050 

LD 

HL,(TEXTA) 

BF3E 2B 

16060 

DEC 

HL 

BF3F 23 

16070 DEL.REF 

INC 

HL 

BF40 7E 

16080 

LD 

A,(HL) 

BF 41 23 

16090 

INC 

HL 

BF42 B6 

16100 

OR 

(HL) 

BF43 CA55BF 

16110 

JP 

Z, END 

BF46 23 

16120 

INC 

HL 

BF47 23 

16130 

INC 

HL 

BF48 23 

16140 

INC 

HL 

BF49 7E 

16150 

LD 

A,(HL) 

BF4A FEFE 

16160 

CP 

OFEH 

BF4C 2002 

16170 

JR 

NZ,NEXTL1 

BF4E 3693 

16180 

LD 

(HL),REM 

BF50 CD071F 

16190 NEXTL1 

CALL 

SEOL 

BF53 18EA 

16200 

JR 

DELREF 

BF55 CD74BF 

16210 END 

CALL 

LEN 

BF5B 212919 

16220 

LD 

HL,TEXT6 

BF5B CD752B 

16230 

CALL 

PRINTT 

BF5E C3E81A 

16240 

JP 

END ML 

BF61 D5 

16250 DELETE 

PUSH 

DE 

BF62 EB 

16260 

EX 

DE, HL 

BF63 2AF°40 

16270 

LD 

HL,(VARA) 

BF66 A7 

16280 

AND 

A 

BF67 ED52 

16290 

SBC 

HL, DE 




r'|V r,f . ,i * ’ii* f ^ ^ f ■ ti%n-v’ h s‘ 
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BF69 

4D 

16300 

LD 

C,L 

BF6A 

44 

16310 

LD 

B,H 

BF6B 

EB 

16320 

EX 

DE, HL 

BF6C 

Dl 

16330 

POP 

DE 

BF6Ü 

EDBO 

16340 

LDIR 


BF6F 

ED53F940 

1 6350 

L.D 

(VARA),DE 

BF 73 

C9 

16360 

RET 


BF 74 

ES 

16370 LEN 

PUSH 

HL 

BF 7 5 

21E4BF 

16380 

LD 

HL,TEXT4 

BF 78 

CD752B 

16390 

CALL 

PRINTT 

BF7B 

2AF940 

16400 

LD 

HL,(VARA) 

BF7E 

EDSBA440 

16410 

LD 

DE,(TEXTA) 

BF32 


16420 

SCF 


BF83 

ED52 

16430 

SBC 

HL, DE 

BF85 

2B 

16440 

DEC 

HL 

BF66 

CDAFOF 

16450 

CALL 

PRZNft 

BF89 

21F8BF 

16460 

LD 

HL,TEXT5 

BF3C 

CD7S2B 

16470 

CALL 

PRINTT 

BF8F 

El 

16480 

PGP 

HL 

BF 90 

C9 

16490 

RET 


BF91 

SA 

16500 TEXT1 

DE FM 

’ Zei 1 enre+erenzen werden 

BFB3 

OD 

16510 

DEFB 

ODH 

' BFB4 

00 

1 6520 

DEFB 


BFB5 

50 

16530 TEXT2 

DEFM 

’Packen beginnt. ? 

BFC4 

OD 

16540 

DEFB 

ODH 

BFC5 

00 

16550 

DEFB 

0 

BFC6 

42 

16560 TEXT3 

DEFM 

'Bezug aut Undefinierte 

BFE3 

00 

16570 

DEFB 

o 

BFE4 

50 

16580 TEXT4 

DEFM 

Programm erfordert * 

BFF7 

00 

16590 

DEFB 

0 

BFFe 

20 

16600 TEXT5 

DEFM 

•' Bytes-’ 

BFFE 

OD 

16610 

DEFB 

ODH 

BFFF 

00 

16620 

DEFB 

A 

B67C 


16630 

END 

IMIT 


00000 TOTAL ERRÜRS 

01403 TEXT AREA BYTES LEFT 


. f 1 ““'S, , 1 r * S * H - \ ,1 h jrj 


.F -I ' L ►-» L . r| V * t r* 


ermittelt. 


eile ? 


. ' ' * * r 
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2.3.1 Feldaufzeichnung ARRAY 


ARRAY ermöglicht das schneile Aufzeichnen und Laden von 
Feldern auf Kassette oder Diskette durch einen einzigen 
Befehl, wobei für das ganze Feld nur ein Header auf 
Kassette aufgezeichnet wird. 

Funktionsweise: 


ARRAY schreibt numerische Felder wie sie im Speicher stehen 
auf Kassette bzw. Diskette. Bei Stringfeldern wird jeder 
String - angeführt von seiner Länge - in der Reihenfolge, 
in der die Strings im Feld angeordnet sind, aufgezeichnet. 
Die Betriebssystemanbindung ist ähnlich wie bei PACK. 

Der Aufruf: 


** Kassettenversion: 


ARRAY stellt zwei neue Befehle zur Verfügung, die 

fo1gendermaßen aufgerufen werden: 

FIELD PRINT #-1,A<20),B$C20),C<1 0 ,10),... 

FIELD INPUT ,AC20),B$C20),CC10,10),... 

Durch den FIELD PRINT-Befehl werden die Feldelemente 
AC0)..A(20>, B$C0..20), C(0,0).. C C10,10) auf Kassette 
aufgezeichnet. Die Variablen1iste kann beliebig lang sein. 
Bei eindimensionalen ARRAY kann auch nur ein Teil 
aufgezeichnet werden: 

10 Din AC20) 


100 FIELD PRINT #-l,A<10) 

Hier werden nur die ersten 11 Elemente aufzeichnet. 

Bei mehrdimensionalen Feldern ist es zwar auch möglich nur 
einen Teil aufzuzeichnen, aber da immer der Bereich im 
Speicher zwischen Feld(0,0,...,0) und FeldCX1,X2,...,XN) 
aufgezeichnet wird, kann im allgemeinen nicht davon 
ausgegangen werden, daß die Elemente 
Fe1dC0..X1,0..X2,...,0..XN) darunter sind. 

Hit der FIELD INPUT-Anweisung müssen genausoviele Elemente 
eingelesen werden, wie aufgezeichnet wurden, ansonsten 
erfolgt ein BS-Error. 

Sollen mit einem FIELD-INPUT Stringfelder gelesen werden, 
so werden zuerst diese Felder gelöscht und dann der 
Stringspace von überf1üssigen Strings bereinigt um für die 
zu lesenden Strings genügend Platz zu schaffen. Da dies 
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unter Umständen längere Zeit in Anspruch nehmen 
bei Beginn des eigentlichen LadeVorgangs ein ’ 
oberen rechten Bildschirmecke angezeigt. Sollte 
beim Laden herauste1 1 en, daß der PI atz nicht 
uird das Laden mit einem OS-Error abgebrochen. 


kann, uird 
S’ in der 
sich später 
ausreicht, 


Beim Laden uird bei jeder Hui 1 bzu. 
der Stern in der oberen rechten Ecke 


bei j edem neuen String 
umgescha1tet. 


* * Diskettenversion: 


ARRAY stellt zuei neue Befehle zur Verfügung, die 
fo1gendermaßen aufgerufen uerden: 

FIELD PRINT #1,AC20>,B$<20},CC10,10>,... 

FIELD INPUT #1,AC20),B$C20),CC10,10j, . . . 


Durch den FIELD PRINT-Befehl 
A(0). .A< 20), B$C8..20), CC0,0)..CC 
1> aufgezeichnet. Die Variablen 
sein. Bei eindimensiona1en ARRAY 
aufgezeichnet uerden: 


uerden die 
10,10) auf 
1 i ste kann 
kann auch 


Feldelemente 
Diskette (File 
be1iebig 1ang 
nur ein Teil 


10 DIN AC20) 


100 FIELD PRINT #1,AC10) 

Hier uerden nur die ersten 11 Elemente aufzeichnet. 

Bei mehrdimensionalen Feldern ist es zuar auch möglich nur 
einen Teil aufzuzeichnen, aber da immer der Bereich im 
Speicher zuischen Feld(0,0, . . . ,0) und FeldCXI,X2,...,XN) 
aufgezeichnet uird, kann im al1gerneinen nicht davon 
ausgegangen uerden, daß die Elemente 
Feld(0..X1,0..X2,...,0 *.XN) darunter sind. 

Nit der FIELD INPUT-Anueisung müssen genausoviele Elemente 
einge1esen uerden, uie aufgezeichnet uurden, ansonsten 
erfo1gt ein BS-Error. Reicht bei Zeichenkettenfe1dern der 
P1 atz im Stringspace nicht aus, uird der Ladevorgang mit 
OS-Error abgebrochen. Ist ein Garbage-Collect notuendig, 
kann es Vorkommen, daß das Laufuerk für diese Zeit anhält. 
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00100 

iASEG 


BE6F 

00110 

DRG 

0BE6FH 

BE6F 2A7D41 

00120 INIT 

LD 

HL,tFIELDV- 

BE72 228ABE 

00130 

LD 

»AAZ*1*,ML 

BE75 217EBE 

00140 

LD 

HL,AAY 

BE^B 227D41 

00150 

LD 

(FIELDVJ,HL 

BE7B C3191A 

00160 

JP 

1A19H 


00170 

* 

$ 


BE7E FE89 

00180 AAY 

CP 

INPUT 

BEBO CAODBF 

00190 

JP 

Z, ABI 

BE83 FEB2 

00200 

CP 

PRINT 

BE85 2805 

00210 

JR 

Z, ABA 

BE8* 1 2B 

00220 

DEC 

HL 

BES8 D7 

00230 

R5T 

10H 

BE8 Q C30000 

00240 AAZ 

JP 

0 

BE8C D7 

00250 ABA 

RST 

10H 

BE8D CDA935 

00260 

CALL 

INITW ~ . 

BE90 2B 

00270 

DEC 

HL. 

BE91 010000 

00280 ABB 

LD 

BC, 0 

BE Q 4 CD6000 

00290 

CALL 

DELAY 

BE9 7 CD6000 

00300 

CALL 

DELAY 

BE9A D7 

00310 

RST 

ICH 

BE9B CDDOBF 

00320 

CALL 

ABP 

BE9E ^B 

00330 

LD 

A,E 

BE9F CD1F02 

00340 

CALL 

WRITEB 

BEA7 17 A 

0*350 

LD 

A, D 

BEA3 CD1F02 

00360 

CALL 

WRITEB 

BEA6 3AAF40 

00370 

LD 

A, <TyPX> 

BEA9 FE03 

00380 

CP 


E<EAB 204° 

00390 

JR 

NZ,ABG 

BEAD E5 

00400 

PUSH 

HL 

BEAE C5 

00410 

PUSH 

BC 

BEAF D5 

00420 

PUSH 

DE 

BEBO 210000 

00430 

LD 

HL, 0 

BEB3 0A 

00440 ABC 

LD , „ 

A,(BC; 

BEB4 85 

00450 

ADD 

A,L 

BEB5 6F 

00460 

LD 

L, A 

BEB6 7 C 

00470 

LD 

A,H 

BEB 7 CEOO 

00480 

ADC 

A, 0 

BEB« fa7 

0^490 

LD 

H, A 

BEBA 1B 

00500 

DEC 

DE 

BEPfe iP 

0051 0 

DEC 

DE 

BEBC 1B 

00520 

DEC 

DE 

BEBD 03 

00530 

INC 

BC 

BEBE 03 

»'*0540 

INC 

BC 

BEBF 03 

00550 

INC 

BC 

BECO 7A 

00560 

LD 

A, D 

BEC1 B3 

00570 

DR 

E 

BEC2 20EF 

00580 

JR 

NZ,ABC 

BEC4 7 D 

00590 

L.D 

A,L. 

BEC5 CD1F02 

00600 

CALL 

WRITEB 

BEC3 7C 

00610 

LD 

A, H 

BEC Q CD1F02 

00620 

CALL 

WRITEB 

BECC Dl 

00630 

POP 

DE 

PECD El 

00640 

FOP 

HL 

BECE D5 

00650 ABD 

F’USH 

DE 

BECF 56 

00660 

L.D 

D, (HL* 

BEDO 23 

00670 

INC 

HL 

BED1 4E 

0068'.* 

L.D 

C, 'HD 

BEP2 23 

00690 

INC 

HL 


- ^ * 4 y 4 t - \ - ***** 


**■ . f + ' n t müti^ - 
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BED3 

4^ 

00700 

LD 

E\ ( ’HL) 

BFD4 

“T 

00710 

INC 

HL 

BED5 

7A 

00720 

L D 

A, D 

BEDt. 

CD1F02 

00730 

CAL L 

WEITES 

BEB* 

A7 

00740 

AND 

A 

BEDA 

280E 

00750 

JP 

Z, ABF 

BEDC 

OA 

00760 ABE 

LD 

A,<BO 

BE DD 

CD1F02 

00770 

CALL 

WFITEB 

BEEO 

CDCABF 

00780 

CALL 

BREAF 

BEE3 

C2C4BF 

Al 

3 P 

N2,RET 2 

BEE6 

03 

OOS 00 

INC 

BC 

BEE7 

15 

0081 0 

DEC 

D 

BEE8 

20F2 

00820 

JF; 

NZ,ABE 

BEEA 

DJ 

00830 ABF 

POP 

DE 

BEEB 

1B 

00840 

DEC 

DE 

BEEL 

1B 

00850 

DEC 

DE 

BEED 

1B 

00860 

DEC 

DE 

BEEE. 

7A 

00870 

LD 

A, D 

BEEF 

B3 

00380 

GR 

E 

BEFO 

20DC 

008*0 

JR 

NZ,ABD 

BEF 2 

El 

00° 00 

POP 

Hl 

BEF3 

C306BF 

00910 

JP 

ABH 

BEFfc 

( .*A 

00920 ABG 

LD 

A, (BO 

BEF" 

CD1F02 

00930 

CALL 

WRITEB 

BEFA 

CDCABF 

00940 

CALL 

BPEAF 

BEFD 

C1C6BF 

00950 

JP 

NZ,RET 

BF 00 

03 

00960 

INC 

BC 

BF 01 

1B 

00970 

DEL 

DE 

BF 02 

7A 

00930 

LD 

A, D 

BF03 

B3 

00*90 

OP 

V 

BF04 

2OF0 

01000 

JR 

NZ,ABG 

BF06 

7E 

01010 APH 

LD 

A,(HL) 

BF07 

FE2C 

01020 

CP 

* i 

BFO q 

CA91BE 

01030 

JP 

2, ABB 

BFOC 

C9 

01040 

RET 


BFOD 

CD282S 

01050 ABI 

CALL 

2828H 

BF 10 

D7 

01060 

RST 

10H 

BF 11 

CDB535 

01070 

CALL 

35B5H 

BF 14 

2B 

01080 

DFC 

HL 

BF 15 

E5 

01090 

PUSH 

HL 

BF 16 

AF 

01100 . 

XOP 

A 

BF 17 

32FFBF 

01110 

LD 

(FLAG),A 

BF1A 

D7 

01120 ABJ1 

RST 

10H 

BEI B 

CDDOBF 

01130 

CALL 

ABP 

BF1E 

3AAF40 

01140 

LD 

A,(TYF'X) 

BF21 

FE03 

01150 

CP 


BF23 

200B 

01160 

JR 

N2, ABF’l 

BF25 

32FFBF 

01170 

LD 

* FLAG»,A 

BF28 

AF 

01180 ABF 1 

> dr 

A 

BF29 

n^ 1 

- -L» 

011*0 

LD 

■BC),A 

BF2A 

03 

01200 

INC 

PC 

BF2B 

1B 

01210 

DEC 

DE 

BF2C 

7A 

01220 

LD 

A, D 

BF2D 

B3 

01230 

OP 

E 

BF2E 

20FB 

01240 

JP 

NZ, ABF 1 

BF30 

7E 

01250 ABF' 1 

LD 

A, { HL.) 

BF31 

FE2C 

01260 

CP 

T 

\ 

BF 3 3 

CA1ABF 

01270 

JP 

Z,ABJ1 

BF36 

3AFFBF 

01280 

LD 

A,(FLAG) 

BF 39 

A7 

01290 

AND 

A 


- V * 1U- + r t 


i j Ol'K * * J <*>»*7, 


» 'ieZ* # +* H*'~ fr 
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BF3A 

C4Eö2S 

01300 

C HU¬ 

N- , LOL LEU 

BF 30 

3E?3 

01710 

LD 

Ci * C. ' 

■ * 

BF3F 

322744 

01720 

L0 

■443'>M , A 

BF 42 

CD4L73 

0137 0 

LALL. 

1 Ml TF-: 

BF45 

El 

01340 

POP 

HL 

RF46 

D 7 

01350 APJ 

RST 

1 OH 

BF 4 7 

CDDOEF 

01360 

CALL 

ABP 

BF4A 

CDED01 

013"'0 

CALL. 

PEADB 

BF4B 

BB 

01380 

CP 

E 

BF4E 

C23D2 7 

01390 

JP 

NZ,PSEPP 

BF51 

LBEDOi 

01400 

CALL 

READB 

BF? 4 

PA 

01410 

CP 

D 

BF55 

CI3027 

01420 

JP 

NZ,PSERP 

BF5S 

3AAF40 

01430 

LD 

A, > T ip\) 

BF5B 

FE03 

01440 

CP 

0 

BF ?D 

7'04 A 

01 450 

JR 

Nl\ABP 

BF5F 

E5 

01 4öO 

PUSH 

^ >i -v-»- .» “ *s»r ; * ■ 

BF60 

CDE.D01 

01470 

CALL 

READB 

BFö3 

6 F 

014 SO 

LD 

| f 

l n M 

BF 64 

LE'EDOl 

014°’ > 

CALL 

PEADB 

BFtT 

6 7 

01500 

LD 

H , M 

BF öS 

CBESBF 

01510 

CALL 

ABS 

BFöB 

D2FABF 

01520 

JP 

NC,AP r 

BFfcE 

i-G 

U 

01 570 

LD 

L,t 

BF 6 F 

60 

01540 

LD 

H,B 

BF 7 o 

C0E4O1 

01550 ABM 

CALL 

Bl. IMP 

BF ' 7 3 

05 

01560 

PUSH 

DE 

E<F74 

f DE 001 

015^0 

CAL.l. 

PEADB 

BF7 -7 

77 

01580 

LD 

(HL > , A 

BF'S 


ol 5?0 

INC 

HL 

BF 7 ? 

E5 

01600 

PUSH 

HL 

BF'/A 

2A0640 

01610 

LD 

HL,'STRZGl 

EF7D 

4F 

01620 

LD 

L , A 

BF7F 

0600 

01630 

LP 

B, 0 

PFSO 

A7 

01 £>40 ’ ’ " 

AND 

A * 1 ^ 'i \ t* * 

BF81 

ED42 

01650 

SBC 

HL, EC 

PF83 

220640 

01660 

LD 

'STRZ 6 *,HL 

BF Bö 

27 

01670 

INC 

HL 

BFS 7 

EB 

OlöSO 

E* 

DF, HL 

ETS 8 

El 

01 6?0 

PGP 

HL 

BFS? 

73 

01 7 00 

LE 

t Hl > , E 

BF SA 

*-» - * 

01 710 

INC 

HL 

BF SB 

-7 

01720 

LD 

«HLJ,D 

BF 8 C 


01730 

INC 

HL. 

BF 8 D 

A7 

01740 

AND 

A 

BF BE 

2S0E 

01 7 50 

JP 

Z, ABO 

BF 90 

CDED 01 

01760 ABM 

CALL 

PEADB 

bfq ; 

12 

01770 

LD 

tL'Ei , A 

BF 94 

CDCABF 

oi 700 

CALL 

BREAK 

BF '* 7 

C2C4BF 

01 790 

JP 

NZ,RET2 

BF9A 

13 

018ÖO 

INC 

DE 

PF C 'B 

OD 

01810 

DEC 

C 

BF°C 

20 F 2 

01820 

JR 

NZ,ABN 

BF*E 

LJ 

ol 830 ABO 

POP 

de: 

BF°F 

1 B 

01940 

DEC 

DE 

BF AO 

1 B 

01850 

DEC 

DE 

BFA3 

1 B 

018ö" 

DEC 

DE 

BFA2 

7B 

018"0 

LD 

A,E 

BF A3 

B2 

01 ?80 

OR 

D 

BF A4 

20C A 

018?0 

JR 

NZ,ABM 
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BFA6 El 

01900 

POP 

HL 

BFA7 1814 

01910 

JR 

ABQ 

BFA9 CDED01 

01920 ABP 

CALL 

READB 

BFAC 02 

01930 

LD 

<BC>,A 

BFAD A7 

01940 

AND 

A 

BFAE CCE401 

01950 

CALL. 

2, BLINK 

BFB1 CDCABF 

01960 

CALL 

BREAK 

BFB4 C2C6BF 

01970 

JP 

NZ,RET 

BFB7 03 

01980 

INC 

BC 

BFB8 1B 

01990 

DEC 

DE 

BFB9 7A 

02000 

LD 

A,D 

BFBA B3 

02010 

OR 

E 

BFBB 20EC 

02020 

JR 

NZ,ABP 

BFBD 7E 

02030 ABÜ 

LD 

A,(HL) 

BFBE FE2C 

02040 

CP 

? ? 

BFCO CA46BF 

02050 

JP 

Z, ABJ 

BFC3 C9 

02060 

RET 


BFC4 Dl 

02070 RET2 

POP 

DE 

BFC5 El 

02080 

POP 

HL 

BFCt 2AE640 

02090 RET 

LD 

HL,(40E6H) 

BFC9 C9 

02100 

RET 


BFCA 3A40F8 

02110 BREAK 

LD 

A,(0F840H) 

BFCD CB57 

02120 

BIT . 

2, A., .. 

BFCF C9 

02130 

RET 


BFDO CD0D26 

02140 ABR 

CALL 

SVAR 

BFD3 E5 

02150 

PUSH 

HL 

BFD4 2AFB40 

02160 

LD 

HL,(ARRTAB) 

BFD7 ED52 

02170 

SBC 

HL, DE 

BFD9 D2F60A 

02180 

JF' 

NC,TMERR 

BFDC 3AAF40 

02190 

LD 

A,(TYPX) 

BFDF 6F 

02200 

LD 

L, A 

BFEO 2600 

02210 

LD 

H, 0 

BFE2 19 

02220 

ADD 

HL, DE 

BFE3 ED42 

02230 

SBC 

HL, BC 

BFE5 EB 

02240 

EX 

DE, HL 

BFE6 El 

02250 

POP 

HL 

BFE7 C9 

02260 

RET 


BFE8 D5 

02270 ABS 

PUSH 

DE 

BFE9 ES 

02280 

PUSH 

HL 

BFEA 2AD640 

02290 

LD 

HL,(STRZG) 

BFED A7 

02300 

, AND 

A 

BFEE ED5BA040 

02310 

LD 

DE, (STRSF'C) 

BFF2 ED52 

02320 

SBC 

HL, DE 

BFF4 EB 

02330 

EX 

DE, HL 

BFF5 13 

02340 

INC 

DE 

BFF6 El 

02350 

POP 

HL 

BFF7 DF 

02360 

RST 

18H 

BFF8 Dl 

02370 

POP 

DE 

BFF9 C? 

02380 

RET 


BFFA 1E1A 

02390 ABT 

LD 

E,OSERR 

BFFC C3A219 

02400 

JP 

ERROR 

BFFF ÖO 

02410 FLAG 

DEFB 

0 

001A 

02420 OSERR 

EQU 

00 IAH 

0060 

02430 DELAY 

EQU 

006OH 

0089 

02440 INPUT 

EQU 

0089H 

00 B2 

02450 PRINT 

EQU 

00B2H 

01E4 

02460 BLINK 

EQU 

01E4H 

01 ED 

02470 READB 

EQU 

01EDH 

021F 

02480 WRITEB 

EQU 

021 FH 

35A9 

02490 INITW 

EQU 

35A9H 
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02 4C 

02500 

INITR 

EQU 

024CH 

0 AF6 

02510 

TMERR 

EOU 

0AF6H 

19A2 

02520 

ERROR 

EOU 

19A2H 

260D 

02570 

SV AR 

EOU 

260DH 

273D 

02540 

BSERR 

EQU 

2 7 7DH 

2SE6 

02550 

C0LL.EC 

EOU 

28E6H 

40A0 

02560 

STRSPC 

EQU 

40A0H 

40AF 

02570 

TYF'X 

EÖU 

40AFH 

40 Dü 

02580 

STR ZG 

EQU 

40D6H 

40FB 

02590 

ARRTAB 

EQU 

4QFBH 

417D 

02600 

FIELDV 

EÜU 

417DH 

BE6F 

02610 


END 

INIT 


00000 TOTAL ERROPS 

31585 TEXT AREA BYTES LEFT 
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oo i oo 


; ASEG 


BE°D 


00110 


ORG 

0BE9DH 



00120 


A 

t 


BE?D 

2A7D41 

00130 

INIT 

LD 

HL, (FIELDV) 

BEAO 

22B3BE 

00140 


LD 

(AAZ+1> , HL 

BE A3 

21ACBE 

00150 


LD 

HL,AAY 

BEA6 

227D41 

00160 


LD 

(FIELDV),HL 

BEA? 

C3191A 

00170 


OP 

1A19H 



00180 


■ 


41 CA 


00190 

WEISE 

EQU 

4ICAH 

41 BE 


00200 

WDISKE 

EGU 

41BEH 

032A 


00210 

GUTEN 

EQU 

032AH 

0013 


00220 

INCHW 

EQU 

0013H 

C7BD 


00230 

BUFFER 

EQU 

0C7BDH 



00240 


* 


BEAC 

FE89 

00250 

AAY 

CP 

INPUT 

BEAE 

CA28BF 

00260 


JF' 

Z, ABI 

BEB 1 

FEB2 

00270 


CP 

PRINT 

BEB3 

2805 

00280 


JR 

l , ABA 

BEB5 

2B 

00290 


DEC 

HL 

BEB6 

D7 

00300 


RST 

10H 

BEB7 

C30000 

00310 

AAZ 

JP 

0 

BEBA 

07 

00320 

ABA 

RST 

10H . 

BEBB 

CDCA4i 

00330 


CALL 

WDISK 

BEBE 

2B 

00340 


DEC 

HL ' 

BEBF 

D7 

00350 

ABB 

RST 

1ÖH 

BECO 

CDBBBF 

00360 


CALL 

SARRAY 

BEC3 

7B 

00370 


LD 

A,E 

BEC4 

CD2A03 

00380 


CALL 

OUTCH 

BEC7 

7A 

00390 


L.D 

A,D 

BEC8 

CD2A03 

00400 


CALL 

OUTCH 

BECB 

3AAF40 

00410 


LD 

A, (TYPX) 

BECE 

FE 03 

00420 


CP 

*7 

BEDO 

2043 

00430 


JR 

NZ,ABG 

BEB2 

E5 

00440 


PUSH 

HL 

BE 03 

C5 

00450 


PUSH 

BC 

BED4 

D5 

00460 


PUSH 

DE 

BED5 

210000 

00470 


L.D 

HL., 0 

BED9 

OA 

00480 

ABC 

LD 

A,(BC) 

BED9 

85 

00490 


APD 

A,L 

BEDA 

öF 

00500 


LD 

*-,A 

BE DB 

7C 

00510 


LD 

A,H 

BEDC 

CE 00 

00520 


ADC 

A,ö 

BEDE 

67 

00530 


LD 

H, A 

BEDF 

1B 

00540 


DEC 

DE 

BEEO 

1B 

00550 


DEC 

DE 

BEE1 

1B 

00560 


DEC 

DE 

BEE2 

03 

00570 


INC 

BC 

BEE3 

03 

00580 


INC 

BC 

BEE4 

03 

00590 


INC 

BC 

BEE5 

7A 

00600 


L.D 

A, D 

BEE6 

B3 

00610 


OR 

E 

BEE7 

20EF 

00620 


JF: 

NZ,ABC 

BEE9 

7D 

00630 


LD 

A,L 

BEEA 

CD2A03 

00640 


CALL. 

OUTCH 

BEED 

7C 

00650 


LD 

A,H 

BEEE 

CD2A03 

00660 


CALL 

OUTCH 

BEF 1 

Dl 

00670 


PGP 

DE 

BEF2 

El 

00680 


POP 

HL 

BEF3 

05 

00690 

ABD 

PUSH 

DE 
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BE* - * 

56 

00 • , '''0 

LD 

D,-Hl* 

BEF 5 

23 

00 7 in 

INC 

HL. 

BEF6 

4E 

00720 

LD 

C,.HU 

BEF” 

2 _■ 

00^7' ' 

INC 

HL. 

BEF 8 

4,6 

00" T 40 

LD 

B,'HL' 

BEF Q 


00750 

INC 

HL 

BEFA 

7A 

00760 

LD 

A, r 

BEFP 

CD2A07 

u07 7 0 

CALL 

OUT CH 

BFFE 

A7 

00700 

AND 

A 

BEFP 

2908 


JR 

Z,ABF 

BF01 

OA 

'.'O0^v ABE 

LP 

A, »BO 

BF 02 

CD2A07 

ong] 0 

CALL 

DUTCH 

BF 05 

03 

0 , ‘ , 82( > 

INC 

BC 

BP 06 

15 

00870 

DEC 

D 

BFO 7 

20F3 

00640 

JR 

NZ,ABE 

BF 09 

ni 

-.'0850 ABF 

POP 

DE 

BP 1 'A 

1B 

■ "jSüO 

DEC 

DE r 

BFOB 

1P 

008~0 

DEC 

DE 

BFOC 

1B 

003SO 

DEC 

DE 

PF OD 

~H 

■X(9 C, 0 

LP 

A,D 

BFOE 

E'7 

00900 

Oft 

E 

BF OF 

20E2 

00 Q in 

JR 

NZ,APD 

BF 1 1 

El 

0v920 

POP 

HL 

BF i 2 

C31FBF 

00 ° 7 1-1 

JP 

ABH 

BF 15 

1 >A 

'70940 AB6 

LD 

A, »PC 1 

PF16 

CD2A03 

OAQFü 

CALL 

DUTCH 

BF 19 

* *~z 

00 Q 60 

INC 

BC 

P r l A 

5 P 

009/0 

PE"C 

DE 

BFlB 

7A 

00980 

LD 

A, D 

BF 1 C 

B7 

00 ’- 3ö 0 

OP 

E 

BP1D 

20Fö 

01 OoO 

JR 

TL , AEG 

E J F 1F 

■>E 

0J01’ 1 ABH 

LD 

A,-Hl) 

BP 20 

FE2C 

01020 

C p 

? > 

* 

BF 22 

iAFFBE 

0107'.' 

JP 

Z, ABF 

BF 25 

C2BE41 

i > i f"»40 

JP 

NP 19' E 

BP 28 

CD2828 

1050 ABT 

ChL.L 

282&H 

BF2B 

LD&BC*' 

n 1 i'ij-n 

CALL 

BUP FEP 

BF2E 

LF 

u] >_v / 

RST 

8H 

BF2F 

2C 

OluSO 

DEFB 

* \ 

% 

BF 20 

E5 

7 1 

PUSH 

HL 

BF 21 

210200 

011 00 

LD 

Hl ,2 

BF 2 4 

0 = 

01 110 

ADD 

HL. BC 

BF 25 

22FEBF 

01120 

LD 

LFCBl ,HL. 

bf:s 

F J 

Oll 30 

POP 

HL 

BF 2^ 

2B 

01140 

DEC 

HL 

BF2A 

D7 

01150 AP2 

Rbl 

K'H 

BF3B 

CDBBBF 

011*0 

CALL 

9 AR F; Ai 

PF3E- 

CDEABF 

Ol 170 

CALL 

PE^PP 

BF41 

BB 

01 ISO 

CP 

E 

BF42 

C 27P2" 7 

01 19 1 * 

JP 

NZ,BSFRF 

BF45 

CDEABF 

0 J 20'? 

CAL [ 

PEADB 

PF4P 

BA 

01 210 

CF' 

T. 

BF4 q 

C23D27 

•j 1220 

JP 

NZ,B9ERR 

BF4C 

7>AAF’ il 0 

OJ 270 

LD 

A,-TyPX» 

BF4F 

FE 02 


CP 


BF51 

205 7 

0 } 250 

J9 

NZ,ABF 

BF 52 

E5 

^ 12 i-0 

F"L !‘z>H 

HL 

BF 54 

CDEABF 

fl i 2 / l j 

CALL 

PE A*-B 

BF5" 1 

öF 

012?’ ■ 

L.D 

L. H 

PP 58 

CDEABF 

n 1 

- j 

ChL L 

PEAl-B 
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BF5B 

67 

01300 

LD 

H, A 

BF5C 

CDD3BF 

01310 

CALL 

ABS 

BF5F 

383 7 

01320 

JR 

C, ABL 

BF" 61 

C5 

01330 

PUSH 

BC 

BF62 

D5 

01340 

PUSH 

DE 

BF63 

AF 

01350 ABK 

XQR 

A 

BF 64 

02 

01 360 

LD 

(BC), A 

BF65 

03 

01370 

INC 

BC 

BF66 

1B 

01380 

DEC 

DE 

BF67 

7A 

01390 

LD 

A, D 

BF68 

B3 

01400 

OR 

E 

BF 69 

20F8 

01410 

JR 

NZ,ABK 

BF6B 

E5 

01420 

PUSH 

HL 

BF6C 

CDE628 

01430 

CALL 

CDLLEC 

BF6F 

El 

01440 

POP 

HL 

BF70 

Dl 

01450 

POP 

DE 

BF71 

CDD3BF 

01460 

CALL 

ABS 

BF74 

CI 

01 470 

POP ' 

BC 

BF75 

D2E5BF 

01480 

JP 

NC,ABT 

BF78 

69 

01490 ABL 

L.D 

L.,C 

BF79 

60 

01500 

LD 

H,B 

BF7A 

D5 

01510 ABM 

PUSH 

DE 

BF7B 

CDEABF 

01520 

CALL 

READB 

BF7E 

77 

01530 

LD 

(HL),A 

BF7F 

23 

01540 

INC 

HL ■ 

BF80 

E5 

01550 

PLI SH 

HL 

BF81 

2AD640 

01560 

LD 

HL,(STRZ&) 

BFS4 

4F : 

01570 

LD 

C,A 

BF85 

0600 

01580 

LD 

B> 0 

BF87 

A7 

01590 

AND 

A 

BF88 

ED42 

01600 

SBC 

HL, BC 

BF8A 

22D640 

01610 

LD 

(STRZG),HL 

BF8D 

23 

01620 

INC 

HL 

BF8E 

EB 

01630 

EX 

DE, HL 

BF8F 

El 

01640 

POP 

HL 

BF90 

73 

01650 

LD 

(HD ,E 

BF91 


01660 

INC 

HL 

BF92 

72 

01670 

L.D 

(HL),D 

BF93 

23 

01680 

INC 

HL 

BF94 

A7 

01690 

AND 

A 

BF95 

2808 

01700 

JR 

Z, ABO 

BF97 

CDEABF 

01710 ABM 

CALL 

READB 

BF9A 

12 

01720 

LD 

(DE),A 

BF9B 

13 

01730 

INC 

DE 

BF9C 

OD 

01740 

DEC 

C 

BF9D 

20F8 

01750 

JR 

NZ,ABN 

BF9F 

Dl 

01760 ABO 

POP 

DE 

BFAO 

1B 

01770 

DEC 

DE 

BFA1 

1B 

01780 

DEC 

DE 

BFA2 

1B 

01790 

' DEC 

DE 

BFA3 

7B 

01800 

LD 


BFA4 

B2 

01810 

OR 

D 

BFA5 

20D3 

01820 

JR 

NZ,ABM 

BFA7 

E1 

01830 

POP 

HL 

BFA8 

180A 

01840 

JR 

ABQ 

BFAA 

CDEABF 

01850 ABP 

CALL 

READB 

BFAD 

02 

01860 

LD 

(BC),A 

BFAE 

03 

01870 

INC 

BC 

BFAF 

1B 

01880 

DEC 

DE 

BFBO 

7A 

01890 

LD 

A, D 
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BFB1 B7 

01900 

OP 

8FB2 20F5 

01910 

JP 

BFB4 7 E 

01920 ABO 

LD 

BFB5 FE2C 

o] 

CP 

BFB7 CA3ABF 

01940 

JP 

BFBA C* 

01950 

RET 

BFBB CD0D26 

01960 SARRAT 

CALL 

BFBE E5 

01970 

PUSH 

BFBF 2AFB40 

01980 

LD 

B C C2 ED52 

01 9 Q 0 

SBC 

BFC4 D2F60A 

02 (.>00 

JP 

BFC" 7 3AAF40 

02010 

LD 

BFCA öF 

02020 

LD 

BFCB 2600 

02030 

L.D 

BFCD 1 Q 

02040 

ADD 

BFCE ED42 

02050 

SBC 

BFDO EB 

02060 

EX 

BF Dl El 

02070 

POP 

BFD2 C9 

02080 

RET 

BFD3 D5 

02090 ABS 

PUSH 

BFD4 E5 

021 HO 

PUSH 

RFP5 2AD640 

02110 

LD 

BFD8 A7 

02120 

AND 

PFD9 ED5BA040 02130 

LD 

BFDD ED32 

02140 

SBC 

PFDF EB 

02150 

E> 

BFEO 13 

02160 

INC 

BFE1 El 

021 70 

PGF‘ 

BFE2 DF 

02180 

RST 

BFE3 Dl 

02190 

POP 

BFE4 C9 

02200 

RET 

BFE5 1E1A 

02210 ABT 

LD 

BFE7 C3A219 

02220 

JP 

BFEA DD 

02230 F'.EADB 

PUSH 

BFEB ED5BFEBF 02240 

LD 

BFEF CD1300 

02250 

CALL 

BFF2 Dl 

02260 

POP 

BFF3 C8 

02270 

RET 

BFF4 CBFF 

'*>2280 

SET 

AFFE CD0*?44 

022^0 

CALL 

BFF9 1E66 

02300 

LD 

PFFB C3A21 Q 

02310 

JP 

BFFE 0000 

02320 FCB 

DE FW 


02330 

* 

001A 

02340 05ERR 

EQU 

0089 

02350 INPUT 

EQU 

00 B2 

02360 PRINT 

EQU 

OAF 6 

02370 THERR 

EQU 

19A2 

02380 ERROR 

EDU 

260D 

02390 SVAR 

EQU 

273D 

02400 BSERR 

EQU 

2SE6 

02410 COLLEC 

EQU 

40A0 

02420 5TRSPC 

EOU 

40 AF 

02430 TTPX 

EQU 

40Dö 

02440 STRZG 

EQU 

40FB 

02450 ARRTAP 

EQU 

417D 

02460 FIELDV 

EQU 

BE9D 

02470 

EHE* 

00000 TOTAL 

EPROPS 


31843 TEaT 

AREA BVTE5 LEFT 



E 

NZ, hBF 
A, * HL * 

Z.hBJ 

svar 

HL 

HL,'ARFTAB> 

HL, DE 
NC.TMEFR 
A, -Trt-V 
L,A 
H, 0 
HL, DE 
HL, IC 

DE,HL l * 'n-i>-Äv 

HL 

DE 

HL 

HL, \STPIG > 

A 

DE, 1 ETPSF’C) 

HL, DE 

DE, HL 

DE 

HL 

18H 

DE 

E,DSEPP 

EPRCF 

DE 

DE , ^ F L*8 * > V—* *r- i i ' ** . 

INC HW 
DE 

7 , A 
4409H 
E, 102 
ERROR 


001 AH 

ooe*H 

00B2H 

OAF eiH 

19A2H 

2&0DH 

273DH 

28EtH 

4 f ‘>A0H 

40AFH 

4 , .*D6H 

40FBH 

417CH+1 

IM1T 
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2.4.1 Kopierprogramm COPBIT 


COPBIT kopiert Co1our-Genie-Kassetten Bit für Bit und 
ermÖglicht somit einfaches Kopieren praktisch al1er 
Co1our-Genie-Kassetten ohne Kenntnis des 

Aufzeichnungsformates: 

1) Systemkassetten 

2) Basickassetten 
3 > Datenkassetten 

4) geschützte Formate 

z. B. mit Preloader und/oder Baudrateumscha1tung 
Funktion 


COPBIT liest Kassetten Bit für Bit ein und achtet dabei 
nicht auf das Format. Unterbrechungen mit Bit-Strom werden 
erkannt und führen auf Uunsch automatisch zum Abbruch des 
^ * ... ' ■ — Ladens. Erst nach dem Laden wird das Format analysiert und 

bei Systemfiles werden die Prüfsummen, bei Basicfiles das 
PointerSystem überprüft, Beim Schreiben auf Kassette wird 
der eingelesene Bit-Strom C auf eine ganze Anzah1 von Bytes 
ergänzt) aus dem Speicher wieder auf Kassette kopiert. 
Preloader, Baudrateumscha1tung und Autostart stellen für 
COPBIT keine Probleme dar. 

COPBIT wurde mit dem 11ACRO-80 von Hierosoft entwiekelt. 
Dabei wurden viele seiner besonderen Möglichkeiten 
ausgenutzt. Insbesonders sind dies die MACRO's und die 
Pseudo-Anweisungen .PHASE und .DEPHASE. Nur so konnte das 
Programm derartig gesta1tet werden, daß der vorhandene 
Speicher optimal ausgenutzt wird Csiehe Technische 
Anmerkung). Diese Version ist natürlich nicht für den 
COLASM geeignet. Daher ist das Programm in einer für den 
COLASM bearbeiteten Version aufgelistet, die auch auf der 
Quellprogrammkassette- und diskette entha1ten ist. Diese 
Version laßt etwas weniger Speicher als unten angegeben für 
die zu kopierenden Programme frei . 


T«chni sehe Anmerkung s 


CÖPBIT benutzt verschiedene Speicherbereiche, die im 
Co1oui—Genie—System eigentlieh für bestimmte Systemaufgaben 
reserviert sind. Daher ist es nicht möglieh nach dem Laden 
von COPBIT einen RESET durchzuf Uhren. Dies f ührt 
unweiger1ich zu einer Fehlfunktion, da dadurch viele 
Programmtei1e von COPBIT zerstört werden. Ein Teil von 
COPBIT ist im Speieher für die freiprogrammierbaren 2eichen 
untergebracht, wodurch manchma1 kleine Bildschirmstörungen 
auftreten. Durch diese intensive Ausnutzung des Speieher 
war es aber mög1 ich 30526 C =773EH im 32K-System, im 
16K-System: 14142 - 373EH) Bytes für das zu kopierende File 
zur Verf ügung zu ste11en. ] 
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Nachdem COPBIT erfolgreich geladen ist, meldet sich das 
Hauptmenue: 


COPBIT V3.0 Kassettenkopierprogramm 
Kopiert beliebige Kassetten bitweise. 
CO 1984 Luidger Roeckrath, 5100 Aachen 


+- + -+-+ 

I Funktionen: I A I I 

+-+-+-+ 

I I 

I<L>aden I 

I I 

I <V> ergleichen I 

I I 

I <S> peichern I 

I I 

I <F> ehlertape laden I 

I I 

I <A> utomatik CEin/Au s)I 
I I 

I <D> rucker (Ein/Aus) I 

I I 

+-+ 






Durch Antippen der Buchstaben in <> kann die entsprechende 
Funktion angewählt werden. Ist die jeweilige Funktion 
beendet, wird automatisch ins Hauptmenue zurückgekehrt. 

In den beiden Kästen hinter "Funktion:” wird der Zustand 
der Flags für die Automatik und den Drucker angezeigt. "A M 
bedeutet Automatik an, W D” bedeutet Drucker ein. 
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Laden 


Nach der Aufforderung> den Kassettenrecorder 

uiedergabebereit zu machen und deren Bestatigung, beginnt 
COPBIT das Programm zu lesen. Soba1d der Header erkannt 
wurde, erseheinen in der oberen, rechten Bi1dschirmecke die 
zuei Sterne. Das File wird von da an Byte für Byte 
eingelesen und im Speieher abge1egt. Sol 1te eine 
Aufzeichnung am Ende kein vo1lständiges Byte mehr haben 
(bei geschützten Formaten), werden auch die restlichen Bits 
richtig geladen und gespeichert. 

Während des Ladens läuft in der Bi 1dschirmmitte der 
eingelesene Text durch. Weiterhin wird bei Systemfiles ein 
F gefolgt vom Filenamen, ein B für jeden Block und ein E 
f ür den Entrypointblock angezeigt. 

Beispiel: COLHON 

FCOLHONBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBE 

Das Laden wird unter folgenden Bedingungen gestoppt: 

1) Automatik Ein (Startbedingung) 

sobaId eine Pause in der Aufzeichnung auftritt. 

2> Automatik Aus 

sobald eine Pause auftritt und die <BREAK>-Taste gedrückt 
u i rd. 

Will man den Ladevorgang mitten in einer Aufzeichnung 
beenden, kann man die Pause durch Anhaiten des 

Kassettenrecorder erzeugen. Auch wenn der Header gesucht 
wird, also bevor die zuei Sterne erscheinen, ist es 
*• mög 1 i ch , den Lade vor gang abzubrechen . Hier i st nur 

erforderlich die <BREAK>*Taste zu drücken, der 

Kassettenrekorder braucht nicht angeha1ten zu werden. 


i 
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Analyse der geladenen Aufzeichung 


Nach Beendigung des 
Aufzeichnung analysiert. 
sich um ein System- oder 


Ladevorgangs wird die geladenen 
Dabei wird festgestellt, ob es 
Bas 1 cfi1e hande11: 


1) Systemfi1e:| 

Das Format für Systemfiles ist folgendes (siehe auch 
Co 1 our-Gen ie-ROtl-Li st ing) : 


Fi 1ename 
Block: 

Entry: 

Beispiel 


55H 6 Bytes Filename 

3CH Länge Startadresse (LSB/MSB) Datenbytes 
Prüfsumme 

78H Entrypoint (LSB/MSB) 

COLMON (60BBH-6FFFH) 


Fi1ename: 
Block : 


Block 

Entry 


55H 43H 4FH 4CH 4DH 4FH 4EH = 55H COLMON 

3CH 80H 00H 60H (128 Datenbytes) (Prüfsumme ) 

= 6000H-607FH 
<30 ähnliche Blöcke> 

3CH 80H 80H 6FH C128 Datenbytes) (Prüfsumme) 

= 6F80H-SFFFH 
78H 00H 60H = 6000H 


COPBIT erkennt automatisch das Systemformat und gibt in 
obigen Beispiel aus: 


Systemf i 1 e: C0L110N 

Block : 6000H-6FFFH 

Entry : 6000H 




Bilden mehrere Blöcke des Systemfiles einen 
zusammenhängenden Speieherblock, uird nur dieser angezeigt 
(siehe Beispiel.). 

Bei Blöcken zuisehen 1 und 3 Bytes Länge uird zusätzlich 
der Inhalt des Blocks angezeigt. Da diese Blöcke oft 
Sprungvektoren sind, die überschrieben werden, ist diese 
Information besonders wertvoll. Ein Sprungbefehl der auf 
die Adresse 41E2H-41E4H geladen uird, bedeutet einen 
Autostart. Sie können a1so sofort die Startadresse eines 
Programmes mit Autostart ablesen, z.B.: 


Block : 41E2H-41E4H : C3H E8H 41H 


bedeutet, daß sobald der Entry im Systemfile erreicht, 
automatisch die Adresse 41E8H angesprungen uird. 

Bei fehlerhaften Blöcken uird nur der Block des 
Systemflies, der den Fehler enthielt, entsprechend markiert 
ausgedruckt: 1 

Systemfile: COLMON 
Block : 6000H—637FH 

Block : 6380H-63FFH!!! Fehler !!! 
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Block : 6400H-6FFFH 

Entry : 6000H 


Vor jedem Block (55H, 3CH, 78H) können zusätzliche Bytes 
stehen, die vom System-Loader im ROM einfach überlesen 
werden. COPBIT zeigt deren Anzahl an. Bei Fehler erscheint 
auch häufig diese Anzeige: 


Systemfi1e: 
Block : 
Block 

zus. Bytes: 
Block : 
Entry : 


C0L110N 
6000H-637FH 
6380H-63FFH!!t 
0073H 

6480H—64FFH 
6000H 


Fehler !!! 


Auch nach dem Entry können bei geschützten Formaten 
zusätzliehe Bytes auftreten. 


2) Basieprogramme 

Basieprogramme werden fo1gendermaßen aufgezeichnet: 

Filename: 1 Byte 

Basictext, wie im Speicher einsch1ie81ich der drei 0 am 
Ende. 

< S i ehe Co 1 oui — Gen i e-ROH-List i ng} 

Basieprogramme enthalten keine Prüfsumme, aber durch das 
PointerSystem (jede 2ei1e enthä 11 einen Pointer auf die 
nächte Zeile) kann die geladene Aufzeichnung im geuissen 
Rahmen geprüft werden, wobei es unerheblich ist, wo das 
Basieprogramm vorher im Speieher stand. 

Beispiel: Demoprogramm 

Basicfi1e: D 


Bei Fehlern im PointerSystem wird für jeden falschen 

Pointer die tleldung Fehler ausgegeben: - - - - . * 

Basicfi1e: D 
!!t Fehler !!! 

Mi Fehler !!! 

I 

J 

Bei beiden Filetypen kann eine weitere Fehlermeldung 
erscheinen: 

i 

File zu kurz. i 

Diese erscheint zum Beispiel, wenn ein Systemprogramm 
mitten im Block abbricht oder der Entry fehlt und bei einem 
Basieprogramm, wenn die drei 0 am Ende fehlen♦ 

Bei Datenaufzeichnungen kann entweder nichts erseheinen 
oder es kann zufällig als einer der Filetypen erkannt 
werden. Dann erscheinen höchstwahrscheinlich zahlreiche 
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Feh1ermeldüngen. 

Fehlermeldungen beeinträchtigen den Kopiervorgang nicht. 
Sie dienen nur zur Kontrolle. 

Eine geladene Aufzeichung steht bis zum nächsten Laden für 
Vergleiche und zum Aufzeichnen zur Verfügung 

Die Analyse des Files wird bei eingeschaltetem Drucker C<D> 
im Hauptmenue) paralei 1 zur Bildschirmausgabe auf den 
Drucker ausgegeben. 


V 


g 1 «i eher» 




Die in den Speieher geladenen Aufzeichung kann mit einer 
weiteren verglichen werden (zum Beispiel eine angefertigte 
Kopie). Abbruch wie beim Laden und automatisch beim 1. 
Ladefeh 1er. Beim Vergleichen wird der einge1esene Text 
nicht auf dem Bildschirm angezeigt. Die Anzeige "Fname 
BBBBBBBBBBE” erscheint, wenn das zu vergleichende File mit 
”L" geladen wurde, und nicht, wenn es mit W F M geladen 
wurde. 


Schr-ei ben 


^ v’i 1 1 


Kassettenrecorder zur Aufnahme bereit machen und dies 
bestätigen. Dann erfo1gt die Abfrage: 

Kopienanzah1 ? 

Sie können mit <ENTER> oder einer Ziffer antworten. Es wird 
dann automatisch eine entsprechende Anzahl von Kopien (bei 
<ENTER> = 1) hintereinander erzeugt. Zwischen 2 Kopien wird 
automatisch ei ne Pause von ca. 5 Sekunden eingeschoben. 
Abbruch des Sehreibens ist jederzeit außer während der 
Pause durch Drücken der < BREAK >-Taste möglieh. 
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Die komplexen Analysevorgänge beim Laden machen das Laden 
mit COPBIT etuas kritischer als das normale Einladen mit 
CLOAD oder SYSTEM. Desha1b kann mit <F> eine ueitere 
Laderoutine aufgerufen werden» die während des Laden nur 
den Text durchlaufen läßt» aber nicht "Fname BBBBBE” 
ausdruckt. Dadurch werden viele 1angwierige Operationen 
eingespart und das Laden ist erheblich unkritischer. Bei 
Ladeproblemen helfen im übrigen oft auch folgende Tips: 

1) Höhen auf Maximum 

2) Tonkopfjustage: Während der Wiedergabe auf maximale 
Höhenwiedergabe (deutlich zu hören) abstimmen. Nach 
erfolgreiehern Laden wieder auf Ihre Standardeinste1lung mit 
einer Ihrer alten Kassetten einstel1en und dann die Kopien 
anfertigen. Die COPBIT-Kassette ist übrigens auf einem mit 
einer Azimut-Normkassette geeichten Kassettenrekorder 
aufgezeichnet. 

3) Lautstärke: Bei manchen Aufzeichungen hilft starkes 
übersteuern» bei anderen aber eher eine etwas niedrigere 
Wahl der Lautstärke (2). 




Die Automatik (Abbruch des Laden» wenn eine Pause auftritt) 
kann abgescha1tet werden » wenn eine Aufzeichnung mit Pausen 
geladen werden soll. Beim Starten des Programmes ist die 
Automatik ein. Durch Eingabe einer <A> im Hauptmenue kann 
sie ab- und wieder eingescha1tet werden. Der Zustand des 
Automatikflags kann im Hauptmenue jederzeit im linken 
Kasten abgelesen werden. 

*** '* * ^ *' 4 —' ' ' ' iJT' i , +\ 4 • ** .", * 




J 

Die Analyse eines geladenen Files kann wahlweise auf einen 
Drucker zusätzlich ausgedruckt werden. Wenn Sie dies 
wünschen, müßen Sie im Hauptmenue das <D> antippen. Mit der 
gleichen Taste können Sie den Drucker wieder abschalten. 
Der jewei1ige Zustand kann im rechten Kasten abge1esen 
werden. Bitte achten Sie darauf, daß bei elngescha1tetem 
Drucker, auch wirklich ein Drucker angeschlossen und ON 
LINE ist. Sonst bleibt das Programm nach dem Laden stehen! 


3 
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Zah1reiche Programme für das Colour—Genie sind in einem 
geschützten Format aufgezeichnet, und lassen sich nicht 
mit einem normalen Kopierprogramm kopieren. Durch das 
völlig neue Konzept von COPBIT können praktisch alle für 
das Colour-Genie angebotenen Programme mit hohem Komfort 
kopiert werden. 

Pre1oader 


Viele geschützte Formate arbeiten mit Preloader, d. h. die 
Auf ze i chnung beg i nnt mit einem kurzen Teil im Systemformat, 
der einen Autostart (s.o. und ROtl-Listing) enthält. Danach 
kommt ein be1ang1oser Entry und dahinter noch zahlreiche 
Bytes in einem anderen Format (vom Programmautor erfunden), 
welche von COPBIT als "zus. Bytes’* ausgegeben werden. Beim 
Laden mit dem System-Befeh1 wird der erste Teil Cder 
Preloader) in den Speicher geladen und nach dem beiang1osen 
Entry wird an die Autostartadresse gesprungen, wo nun der 
Preloader startet und mit Hilfe der ROH-Routinen den Rest 
des Programmes im speziellen Format lädt. Dieser Trick läßt 
die meisten Kopierprogramme scheitern, da Sie den 
Ladevorgang beim Entry abbrechen. COPBIT aber lädt solange 
von Kassette bis eine Pause kommt und 1egt die ge1adenen 
Bytes einsch1ieö1ich aller Steuerzeichen hintereinander 
unverändert im Speicher ab. Erst nach beendeten Laden wird 
dort analysiert. Beim Schreiben uird alles wieder genauso 
auf Kassette gespeichert wie es vorher einge1aden wurde. 
Pre1oaderaufzeichnungen lassen sich ohne weiteres mit 
COPBIT kopieren. 

Baudrateumscha1tung 


Ein anderer weitverbreiteter Kopierschutztrick ist die 
Veränderung der Baudrate. Beim Colour-Genie können durch 
Bel egen von bestimmten Speicherze11en mit bestimmten Werten 
die Aufzeichungs- C4310H + 4311H) und Ladebaudrate (4312H) 
in weiten Rahmen verändert werden. COPBIT erkennt beim 
Laden Veränderungen der Baudrate C= Veränderungen der 
Speicherze1le 4312H) und führt diese entsprechend aus um 
mit der richtigen Baudrate zu laden. Diese fa1 sehen Werte 
werden aber sofort durch den Standardwert ersetzt im 
Speicher abge1egt <bei der Analyse können Sie das bei 
B1öcken fo1gender Art erkennen: B1ock : 4312H-4312H : 
69 H). Die Baudrateumscha1tung können Sie aber auch schon 
während des Ladevorganges an der Geschwindigkeitsanderung 
des durchlaufenden Textes erkennen. Die Kopie wird ohne 
Baudrateumscha1tung erste11t, und da alle entsprechenden 
B1öcke durch die Standardwerte unschädlich gemacht worden 
sind, ist diese Aufzeichnung trotzdem einwandfrei lauffähig 
und geringfügig kürzer. Bänder mit Baudrateumscha1tung 
können nicht mit <F> geladen werden, da dann die Analyse, 
die die Baudrateumscha1tung erkennt, entfällt. 


I 
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000D 


4600 


4800 F3 

4801 31694C 
4804 3E69 
4806 321243 
4809 3E03 
480B CDB03F 
480E 21D9F4 
4811 CD13F4 
4814 CD2B00 
4817 FE61 
4819 3802 
481B D620 
48ID FE4C 
481F 2S1C 
4821 FE53 
4823 CAC74A 
4826 FE56 
4828 CA374B 
482B FE41 
4B2D CAB44A 
4830 FE44 
4832 CA00F4 
4835 FE46 
4837 CA3C46 
483A 18D8 


483C 3E 
483D AF 
4S3E 32FBF7 
4841 2184F6 
4344 CD13F4 
4847 210000 
484A 22EFF7 
484D 22EDF7 
4850 CD8F4B 
4853 21E0F6 
4856 CD13F4 
4859 117F46 
485C 211CCB 
485F 226C4B 
4862 FD2A204? 


00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 CR 
00220 
00230 
00240 
Cs0250 
00260 

00270 START 
00280 
00290 
00300 
00310 
00320 Wr 
00330 
00340 
00350 ST1 
00360 
00370 
00380 
00390 ST2 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 , 

00510 . 

00520 

00530 

00540 

00550 FTAPEL 
00560 LADEN 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 

:t 00690 LAD 


copbit 

Kopiert Colour-Genie Kassetten Bitweise 

<c) Luidger Röckrath 
Noppiusstr. 19; 

5100 Aachen 
(0241)34962 


EQU ODH 

I 


GRG 

48Ü0H 

5 

; ASEG 


DI 


LD 

SP,BUFFER 

LD 

A, 105 

LD 

(4312H),A 

LD 

A, 3 

CALL 

3FB0H 

LD 

HL,TEXT1 

CALL 

PRINT 

CALL 

INCH 

CP 

’ a* 

JR 

C, ST2 

SUB 

’ a’ A J 

CP 

’L’ 

JR 

2,LADEN 

CP 

? S’ 

JP 

Z,SCHREI 

CP 


JP 

Z, VERGLE 

CP 

’A’ 

JP 

Z, AUTOM 

CP 

’D’ 

JP 

Z,DREA 

CP 

’F J 

JP 

Z, FTAPEL 

JR 

ST 1 



; Fehlerhaftes Tape 1aden 

t 

DEFB 3EH ; = LD A,... 

XOR A 

LD (FTF),A 

LD HL,TEXT2 

CALL PRINT 

LD HL, 0 

LD (LSTREC),HL 

LD (LSTRAC),HL 

CALL WA IT 

LD HL,TEXT6 

CALL PRINT 

LD DE,467FH 

LD HL,0CB1CH 

LD (READV),HL 

LD IY,(4020H) 


i 
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4866 3E55 

00700 

LD 

a, ? u : 

4868 328648 

00710 

LD 

(Ll110+1), A 

4S6B 21684C 

00720 

LD 

HL,BUFFER-1 

486E CDF54B 

00730 

CALL 

READS 

4871 DA414A 

00740 

JP 

C, L110 

4374 3AFBF7 

00750 

LD 

A,(FTF) 

4877 A7 

00760 

AND 

A 

4878 207D 

00770 

JR 

NZ,LU16 

4S7A CD6C4B 

00780 LI 

CALL 

RE ADV 

487B FE3C 

00790 

CP 

3CH 

487F 280A 

00800 

JR 

Z,L1111 

4881 FE78 

00810 

CP 

7SH 

4883 2861 

00820 

JR 

Z,Lli 15 

4885 FE55 

00830 LI 110 

CP 

55H 

4887 2844 

00840 

JR 

2,1.1114 

4889 18EF 

00850 

JR 

Ll 

488B FD360042 

00860 LI111 

LD 

UY+O) , ’B f 

488F FD23 

00870 

INC 

IY 

4891 AF 

008SO 

XOR 

A 

4892 32FAF7 

Cs0890 

LD 

(CF),A 

4895 CD6C4B 

00900 

CALL 

READY 

4898 47 

00910 

LD 

B, A 

4899 CD6C4B 

00920 

CALL 

READY 

489C D9 

00930- 

EXX 


4S9D 6F 

00940 

LD 

L,A 

489E B9 

00950 

EXX 


489F CD6C4B 

00960 

CALL 

READY 

49A2 D9 

00970 

EXX 


48A3 67 

00980 

LD 

H, A 

48A4 D9 

00990 

EXX 


48A5 CD6C4B 

01000 LI 112 

CALL 

READY 

48A8 D9 

01010 

EXX 


48A9 7C 

01020 

LD 

A,H 

48AA FE43 

01030 

CP 

43H 

48AC 7D 

01040 

LD 

A, L. 

48AD 23 

01050 ' ‘ 

INC 

HL ‘ ! 

48AE D9 

01060 

EXX 


4SAF 2010 

01070 

JR 

NZ,Ll113 

48B1 FE12 

01080 

CP 

12H 

48B3 200C 

01090 

JR 

NZ,Ll113 

48B5 7E 

01100 

LD 

A,(HL) 

4SB6 321243 

01110 

LD 

(4312H),A 

4889 3669 

01120 

LD 

(HL),105 

48BB ED44 

01130 

NEG 


4SBD 86 

01140 

ADD 

A,(HL) 

48BE 32FAF7 

01150 

LD 

(CF),A 

48C1 10E2 

01160 LI 113 

DJNZ 

Ll 112 

48C3 CB6C4B 

01170 

CALL 

READY 

48C6 3AFAF7 

01180 

LD 

A,(CF) 

48C9 86 

01190 

ADD 

A,(HL) 

48CA 77 

01200 

LD 

(HL),A 

48CB 18AD 

01210 

JR 

Ll 

48CD FD360046 

01220 LU. 14 

LD 

( IY+0) , ’F’ 

48D1 FD23 

01230 

INC 

IY 

48D3 0606 

01240 

LD 

B, 6 

48D5 CD6C4B 

01250 LU 114 

CALL 

READY 

48D8 FD7700 

01260 

LD 

(IY+O),A 

48DB FD23 

01270 

INC 

IY 

48DD 10F6 

01280 

DJNZ 

Ll 1114 

48DF 3E3C 

01290 

LD 

A, 3CH 




* -'-t ^ ^ r 4 *^ 1 


: i-\ *■ WV* L * * "■** i. 
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4SE1 

32B64S 

0 i 300 

LD 

(LI 110+1),A 

48E4 

1894 

01310 

JR 

Li 

4SE6 

FD360045 

01320 Ul 115 

LD 

(IY+0),’E’ 

4SEA 

FD 23 

01330 

INC 

IY 

48EC 

CD6C4B 

01340 

CALL 

READY 

48EF 

CD6C4B 

01.350 

CALL 

READY 

4SF2 

3E69 

01360 

LD 

A, 105 

4SF4 

321243 

01370 

LD 

(4312H),A 

4SF7 

CD6C4B 

01380 LI 116 

CALL 

READY 

4SFA 

1SFB 

01390 

JR 

LI 116 

48FC 

3E00 

01400 L22 

LD 

ft, 0 

4SFE 

8F 

01410 

ADC 

A, A 

48FF 

32FCF7 

01420 

LD 

(AFF),A 

4902 

FD222040 

01430 

LD 

(4020H),IY 

4906 

3AF8F7 

01440 

LD 

A,(DF) 

4909 

32F9F7 

01450 

LD 

(DFLftb),A 

490C 

11694C 

01460 

LD 

DE,BUFFER 

490F 

A7 

01470 

AND 

A 

4910 

ED52 

01480 

SBC 

HL, DE 

4912 

E5 

01490 

PUSH 

HL 

4913 

21A9F6 

01500 

LD 

HL,TEXT3 

4916 

CD13F4 

01510 

CALL 

PRINT 

4919 

El 

01520 

POP 

HL 

491A 

CD67F4 

01530 " 

CALL 

F'PHEX -■ 

491D 

CDAC4A 

01540 

CALL 

CRCR 

4920 

22EBF7 

01550 

LD 

(FLEN),HL 

4923 

1J 8046 

01560 

LD 

DE,4680H 

4926 

0680 

01570 

LD 

B, 128 

4928 

3E20 

01580 

LD 

A, ’ ? 

492A 

12 

01590 LI 13 

LD 

(DE), A 

492B 

13 

01600 

INC 

DE 

492C 

10FC 

01610 

DJNZ 

Li 13 

492E 

11694C 

01620 

LD 

DE,BUFFER 

4931 

2AEBF7 

01630 

LD 

HL,(FLEN) 

4934 

19 

01640 

ADD 

HL, DE 

4935 

2B 

01650 

DEC 

HL 

4936 

3AFCF7 

01660 

LD 

A,(AFF) 

4939 

A7 

01670 

AND 

A 

493A 

2801 

01680 

JR 

2, LI 14 

493C 

2B 

01690 

DEC 

HL 

493D 

CD984A 

01700 LI 14 

CALL 

NULL 

4940 

CA4B4A 

01710 

JP 

Z,L100 ^ 

4943 

1A 

01720 

LD 

A,(DE) 

4944 

FE55 

01730 

CP 

’LP 

4946 

2806 

01740 

JR 

Z, L115 

4948 

CD984A 

01750 

CALL 

NULL 

494B 

CA4B4A 

01760 

JP 

Z, L. 100 

494E 

21 FF FF 

01770 LI 15 

LD 

HL,OFFFFH 

4951 

1A 

Öl780 LI12 

LD 

A,(DE) 

4952 

CDBFF4 

01790 

CALL 

ENDE 

4955 

23 

01.800 

INC 

HL 

4956 

13 

01810 

INC 

DE 

4957 

FE55 

01820 

CP 


4959 

20F6 

01830 

JR 

NZ,LI 12 

495B 

7C 

01840 

LD 

A, H 

495C 

B5 

01850 

OR 

L 

495D 

E5 

01860 

PUSH 

HL 

495E 

F5 

01370 

PUSH 

AF 

495F 

216AF7 

ö 1880 

LD 

HL,TEXT 18 

4962 

C413F4 

01890 

CALL 

NZ,PRINT 
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4965 Fl 

01900 

POP 

AF 

4966 El 

01910 

POP 

HL 

4967 C467F4 

01920 

CALL 

NZ,FRHEX 

496A 214EF7 

01930 

L.D 

HL,TEXT10 

496D CD13F4 

01940 

CALL 

PRINT 

4970 0606 

01950 

LD 

B, 6 

4972 1A 

01960 LI 1 

LD 

A,(DE) 

4973 CD3BF4 

01970 

CALL 

OUTCH 

4976 13 

01980 

INC 

DE 

4977 10F9 

01990 

DJNZ 

LI 1 

4979 21FFFF 

02000 L12 

LD 

HL,OFFFFH 

497C 1A 

02010 L121 

LD 

A,(DE) 

497D CDBFF4 

02020 

CALL 

ENDE 

4980 13 

02030 

INC 

DE 

4981 23 

02040 

INC 

HL 

4982 FE78 

02050 

CP 

78H 

4984 2804 

02060 

JR 

7 1 IT'“ 

4986 FE3C 

02070 ’ ,f ' 


3CH 

4988 20F2 

02080 

JR 

NZ,L121 

498A F5 

02090 LI22 

PUSH 

AF 

49BB 7C 

02100 

LD 

A, H 

498C B5 

02110 

OR 

L 

498D 28OB 

02120 

JR 

Z,L123 

498F E5 

02130 . 

PUSH 

HL 

4990 216AF7 

02140 

LD 

HL,TEXT18 

4993 CD13F4 

02150 

CALL 

PRINT 

4996 El 

02160 

POP 

HL 

4997 CD67F4 

02170 

CALL 

FRHEX 

499A Fl 

02180 LI23 

POP 

AF 

499B FE78 

02190 

CP 

78H 

499D 2873 

02200 

JR 

Z, L15 

499F 1A 

02210 

LD 

A,(DE) 

49A0 4F 

02220 

LD 

C,A 

49A1 13 

02230 

INC 

BE 

49A2 1A 

02240 

LD 

A,(DE) 

49A3 6F •■■■ 

02250 

LD 

L, A 

49A4 13 

02260 

INC 

DE 

49A5 1A 

02270 

LD 

A, (DE) 

49A6 67 

02230 

LD 

H, A 

49A7 13 

02290 

INC 

DE 

49A8 35 

02300 

ADD 

A,L 

49A9 47 

02310 

LD 

B, A 

49AA C5 

02320 

PUSH 

BC 

49AB ED53F1F7 

02330 

LD 

(LSTAD),DE 

49AF 1A 

02340 L.14 

LD 

A,(DE) 

49B0 CBBFF4 

02350 

CALL 

ENDE 

49B3 13 

02360 

INC 

DE 

4°B4 80 

02370 

ADD 

A,B 

49B5 47 

02380 

LD 

B, A 

49B6 0D 

02390 

DEC 

C 

49B7 20F6 

02400 

JR 

NZ,L14 

49B9 1A 

02410 

LD 

A, (DE) 

49BA 13 

02420 

INC 

DE 

49BB 90 

02430 

SUB 

B 

49BC 280C 

02440 

JR 

Z,L1S 

49BE E5 

02450 

PUSH 

HL 

49BF CD6FF4 

02460 

CALL 

PRBL. : 

49C2 El 

02470 

POP 

hl ; 

49C3 010000 

02480 

LD 

BC, 0 

49C6 ED43EFF7 

02490 

LD 

(LSTREC),bc 


* T " '■■•V*' 1ir% r L .Vj’Kt- 


-v '.wuf ’ ' 




2.4.2 Kopierprogramm COPBIT 


Quellprogramm 


Seite 142 


49CA 

32F5F7 

02500 

LI 8 

LD 

(CSF), A 

49CD 

CI 

02510 


POP 

BC 

49CE 

E5 

02520 


PUSH 

HL 

49CF 

B5 

02530 


PUSH 

DE 

49D0 

ED5BEFF7 

02540 


LD 

DE, (LSTREC) 

49D4 

7B 

02550 


LD 

A,E 

49D5 

B2 

02560 


OR 

D 

49D6 

2003 

02570 


JR 

NZ,L16 

49D8 

3C 

02580 


INC 

A 

49D9 

1806 

02590 


JR 

L17 

49DB 

37 

02600 

L16 

SCF 


49DC 

ED52 

02610 


SBC 

HL, DE 

49DE 

F5 

02620 


PUSH 

AF , 

49BF 

C46FF4 

02630 


CALL 

NZ,PRBL 

49E2 

Fl 

02640 


POP 

AF 

49E3 

Dl 

02650 

L17 

POP 

DE 

49E4 

El 

02660 


POP 

HL 

49E5 

280B 

02670 


JR 

Z, L13 

49E7 

22EDF7 

02680 


LD 

(LSTRAC),HL 

49EA 

E5 

02690 


PUSH 

HL 

49EB 

2AF1F7 

02700 


LD 

HL,(LSTAD) 

49EE 

22F3F7 

02710 


LD 

(LSTAD1),HL 

49F1 

El 

02720 


POP 

HL 

49F2 

0600 

02730 

L13 

LD 

B, 0 

49F4 

0D 

02740 


DEC 

L 

49F5 

09 

02750 


ADD 

HL, BC 

49F6 

22EFF7 

02760 


LD 

(LSTREC),HL 

49F9 

3AF5F7 

02770 


LD 

A,(CSF) 

49FC 

A7 

02780 


AND 

A 

49FB 

CA7949 

02790 


JR 

Z, L12 

4A00 

CD6FF4 

02800 


CALL 

PRBL 

4A03 

210000 

02810 


LD 

HL, 0 

4A06 

22EFF7 

02820 


LD 

(LSTREC) ,HL. 

4A09 

2186F7 

02830 


LD 

HL,TEXT13 

4A0C 

CD13F4 

02840 


CALL 

PRINT 

4A0F 

C37949 

02850 


JP 

L12 



02860 


■ 


4A12 

CD6FF4 

02870 

L15 

CALL 

PRBL 

4A15 

2178F7 

02680 


LD 

HL,TEXT12 

4A18 

CD13F4 

02890 


CALL 

PRINT 

4A1B 

1A 

02900 


LD 

A,(DE) 

4A1C 

6F 

02910 


LD 

L,A 

4A1D 

13 ' 

02920 


INC 

DE 

4A1E 

1A 

02930 


LD 

A,(DE) 

4A1F 

67 

02940 


LD 

H, A 

4A20 

CD67F4 

02950 


CALL 

PRHEX 

4A23 

13 

02960 


INC 

DE f 

4A24 

21694C 

02970 


LD 

HL,BUFFER 

4A27 

ED4BEBF7 

02980 


LD 

BC, (FL.EN) 

4A2B 

09 

02990 


ADD 

HL, BC 

4A2C 

A7 

03000 


AND 

A 

4A2D 

ED52 

03010 


SBC 

HL, DE 

4A2F 

7D 

03020 


LD 

A, L 

4A30 

B4 

03030 


OR 

H 

4A31 

28 OB 

03040 


JR 

Z,LI 11 

4A33 

E5 

03050 


PUSH 

HL 

4A34 

216AF7 

03060 


L.D 

HL,TEXT18 

4A37 

CD13F4 

03070 


CALL 

PRINT 

4A3A 

El 

03080 


POP 

HL 

4A3B 

CD67F4 

03090 


CALL 

PRHEX 
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4A3E CDAC4A 

03100 

LI 11 

CALL 

CPCR 

4A41 AF 

03110 

L110 

/OP 

A 

4A42 32F Q F7 

03120 


LD 

(DFLAG),A 

4A45 CD8F4B 

03130 

WSTAE 

T CALL 

WA IT 

4A48 C30048 

03140 


JP 

START 


03150 


* 

\ 


4A4E* 2195F7 

03160 

LI 00 

LD 

HL,TEXT 14 

4A4E CD13F4 

03170 


CALL 

PRINT 

4A51 1A 

03180 


LD 

A, IDE) 

4A52 CD3BF4 

03190 


CALL 

OUTCH 

4A55 13 

03200 


INC 

DE 

4A56 CDAC4A 

03210 


CALL 

CRCR 

4A59 EB 

03220 


EX 

DE, HL. 

4A5A 5E 

03230 

LI 05 

LD 

E,(HL) 

4A5B 23 

03240 


INC 

HL ; 

4A5C 56 

03250 


LD 

D,'HL) 

4A5D 23 

03260 


INC 

HL 

, 4A5E 23 

03270 

* T * *-* 

INC 

HL ■- * ^ L - M ’ 

4A5F 23 

03280 


INC 

HL 

4A60 7E 

03290 

L101 

LD 

A.(HL) 

4A61 CDB9F4 

03300 


CALL 

ENDEI 

4A64 23 

03310 


INC 

HL 

4A65 A7 

03320 


AND 

A 

4A66 20F8 

03330 


JR 

NZ.L101 

4A68 CDB9F4 

03340 

LI 02 

CALL 

ENDEI 

4A6B D5 

03350 


PUSH 

DE 

4A6C 5E 

03360 


LD 

E,(HL) 

4A6D 23 

03370 


INC 

HL 

4A6E 56 

033ß0 


LD 

D,(HL) 

4A6F 7A 

03390 


LD 

A, D 

4A70 B3 

03400 


OR 

E 

4A71 E3 

03410 


EX 

(SP),HL 

4A72 EB 

03420 


EX 

DE, HL. 

4A73 CI 

03430 


POP 

BC 

4A74 CA414A 

03440 


JP 

Z, L110 

4A77 E5 

03450 

. 

PUSH 

HL ■ .„. + 

4A78 ED52 

03460 


SBC 

HL, DE 

4A7A 09 

03470 


ADD 

HL, BC 

4A7B Dl 

03480 


POP 

OE 

4A7C 2B 

0-- r 490 


DEC 

HL 

4A7D 2B 

03500 


DEC 

HL 

4A7E 7E 

03510 


LD 

A, (HL) 

4A7F 23" 

03520 


INC 

HL. 

4ABO A7 

03530 


AND 

A 

4A81 28E5 

03540 


JR 

Z,L102 

4A83 E5 

03550 


PUSH 

HL 

4A84 2186F7 

03560 


LD 

HL,TEXT13 

4A87 CD13F4 

03570 


CALL 

PRINT 

4A8A El 

03580 


POP 

HL 1 

4A8B CDAF4A 

03590 


CALL 

CR1 

4ABE 7E 

03600 LI03 

LD 

A,(HL) 

4A8F CDB9F4 

03610 


CALL 

.ENDEI 

4A92 23 

03620 


INC 

HL 

4A93 A7 

03630 


AND 

A 

4A94 20F8 

03640 


JR 

NZ, L.103 

4A96 1SC2 

03650 


JR 

LI 05 


O3660 ; 




4A98 7E 

03670 NULL 

LD 

A, (HL) 

4A99 2B 

03680 


DEC 

HL 

4A9A B6 

03690 


OR 

(HL) 
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4A9B 

2B 

03700 

DEC 

HL 

4A9C 

B6 

03710 

ÖR 

< HL) 

4A9D 


03720 

INC 

HL 

4A9E 

CO 

03730 

RET 

NZ 

4A9F 

2B 

03740 

DEC 

HL 

4AA0 

2B 

03750 

DEC 

HL 

4AAi 

7E 

03760 

LD 

A, <HL> 

4AA2 

FE78 

03770 

CP 

78H 

4AA4 

23 

03780 

INC 

HL 

4AA5 

23 

03790 

INC 

HL 

4AA6 

2802 

03800 

JR 

Z, NI 

4AA8 

AF 

03810 

XOR 

A 

4AA9 

C9 

03820 

RET 


4AAA 

A7 

03830 Ni 

AND 

A 

4AAB 

C9 

03840 

RET 




03850 

« 

3 


4AAC 

CBAF4A 

03860 CR CF: 

CALL 

CR1 

4AAF 

3E0D 

03870 CR1 

LD 

A, CR 

4AB1 

C33BF4 

03880 

JP 

OUTCH 



03890 

• 

1 




03900 

; Automati k <Ein/Aus) 



03910 

? 

■ 

4AB4 

3AF6F7 

03920 AUTOM 

LD 

A,(BF) 

4AB7 

EEFF 

03930 

XOR 

255 

4AB9 

32F6F7 

03940 

LD 

(BF),A ■ - ‘ 

4ABC 

3A79F5 

03950 

LD 

A,(BA) 

4ABF 

EE61 

03960 

XOR 

’a 7 ; ? ? XOR 

4AC1 

3279F5 

03970 

LD 

(BA),A 

4AC4 

C3004S 

03980 

JP 

START 



03990 

• 




04000 

; Schreiben 



04010 

* 

* 


4AC7 

21BDF6 

04020 SCHREI 

LD 

HL,TEXT4 

4ACA 

CD13F4 

04030 

CALL 

PRINT 

4ACB 

CD8F4B 

04040 

CALL 

WA IT 

4 ABO 

21BAF7 

04050 

LD 

HL,TEXT 16 

4AD3 

CD13F4 

04060 

CALL 

PRINT 

4AD6 

CB2B00 

04070 SO 

CALL 

INCH 

4AD9 

FEOD 

04080 

CP 

CR 

4ADB 

0601 

04090 

LD 

B, 1 

4ADD 

2809 

04100 

JR 

Z,S01 

4ADF 

D63Ö 

04110 

SUB 

’Q’ 

4AE1 

38F3 

04120 - - 

JR 

C, SO • -t- 11 -- 

4AE3 

FEOA 

04130 

CP 

10 

4AE5 

30EF 

04140 

JR 

NC, SO 

4AE7 

47 

04150 

LD 

B, A 

4AE8 

78 

04160 SOI 

LD 

A,B 

4AE9 

C630 

04170 

ADD 

A, ’O’ 

4AEB 

CD3BF4 

04180 

CALL 

OUTCH 

4AEE 

48 

04190 

LD 

C,B 

4AEF 

21F2F6 

04200 

LD 

HL,TEXT7 

4AF2 

CD13F4 

04210 

CALL 

PRINT 

4AF5 

C5 

04220 Sil 

PUSH 

BC 

4AF6 

79 

04230 

LD 

A, C 

4AF7 

90 

04240 

SUB 

B 

4AF8 

C631 

04250 

ADD 

A, ’ 1 ■’ 

4 AFA 

32CBF7 

04260 

LD 

(TEXT17),A 

4AFD 

FS 

04270 

PUSH 

AF 

4AFE 

21CBF7 

04280 

LD 

HL,TEXT17 

4 BOI 

CD13F4 

04290 

CALL 

PRINT 


i v* ■' 


i 
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4B04 

Fl 

04300 

POP 

AF 

4B05 

FE31 

04310 

CP 

’ r 

4B07 

280B 

04320 

JR 

Z,S13 

4 BO? 

1605 

04330 

LD 

B, 5 

4B0B 

010000 

04340 S12 

LD 

BC, 0 

4B0E 

CD6000 

04350 

CALL 

6 OH 

4B11 

L5 

04360 

DEC 

D 

4B12 

20F7 

04370 

JR 

NZ, S12 

4B14 

CD9D4B 

04380 S13 

CALL 

WEITES 

4B17 

201B 

04390 

JR 

NZ,S2 

4B19 

21694C 

04400 

LD 

HL,BUFFER 

4B1C 

ED4BEBF7 

04410 

LD 

BC, *.FLEN) 

4B20 

7E 

04420 S1 

LD 

A,(HL) 

4B21 

CD1F02 

04430 

CALL 

WRITEB 

4824 

3A40FS 

04440 

LD 

A,(0FS40H) 

4B27 

CB57 

04450 

BIT 

2, A 

4B2? 

2009 

04460 

JR 

NZ,S2„ 

4B2B 

+y 

04470 

INC 

HL 

4B2C 

OB 

04480 

DEC 

BC 

4B2D 

78 

04490 

LD 

A, B 

4B2E 

Bl 

04500 

OR 

C 

4B2F 

20EF 

04510 

JR 

NZ,S1 

4B31 

CI 

04520 

POP 

BC 

4B32 

10C1 

04530 

DJNZ 

Sil 

4B34 

C3454A 

04540 52 

JP 

WSTART 



04550 

* 




04560 

; Vergleichen 



04570 

■ 


4B37 

2194F6 

04580 VERGLE 

LD 

HL,TEXT2 

4S3A 

CD13F4 

04590 

CALL 

PRINT 

4B3D 

CD8F4B 

04600 

CALL 

WA IT 

4B40 

21 OFF7 

04610 

LD 

HL,TEXTB 

4B43 

CD13F4 

04620 

CALL 

PRINT 

4B46 

260F 

04630 

LD 

H,READV-READY- 

4B4S 

2E18 

04640 

LD 

L, 1SH 

4B4A 

226C4B 

04650 

LD 

(READY),HL 

4B4D 

ED5BEBF7 

04660 

LD 

DE, (FL.EN) 

4B51 

C36248 

04670 

JP 

LAD , 



04680 

* 


4B54 

21A2F7 

04690 VI 

LD 

HL,TEXT15 

4B57 

FD222040 

04700 V4 

LD 

(4020H),IY 

4B5B 

E5 

04710 

PUSH 

HL 

4B5C 

CDAC4A 

04720 

CALL 

CRCR 

4B5F 

El 

04730 

POP 

HL 

4860 

CD13F4 

04740 

CALL 

PRINT 

4B63 

Dl 

04750 V2 

POP 

DE 

4B64 

C3454A 

04760 

JP 

WSTART 



04770 

m 




04780 

; Fehler 



04790 

• 

> 


4B67 

21A7F7 

04800 V3 

LD 

HL,TEXT5 

4B6A 

18EB 

04810 

JR 

V4 



04820 

04830 ; 

; 



• 

04840 ; 

Unterprogramme für Le 



04850 ; 



4B6C 

IC 

04860 READY 

INC 

E 

4B6D 

CBFB 

04370 

SET 

7,E ' 

4B6F 

CDB24B 

04880 

CALL 

READB 

4B72 

2804 

04890 

JR 

1 ,REND 


v. 




ff V'^ * A "r-'üi? r'i ' T ’*i ** '. ^ t t 
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4B74 23 

04900 

INC 

HL 

4B75 77 

04910 

LD 

(HL),A 

4B76 12 

04920 

LD 

<DE>,A 

4B77 DO 

04930 

RET 

NC 

4B7S CI 

04940 REND 

POP 

BC 

4B7? 23 

04950 

INC 

HL 

4B7A C3FC48 

04960 

JP 

1.22 


04970 } 



4B7D 1B 

04980 READV 

DEC 

DE 

4B7E 7A 

04990 

LD 

A,D 

4B7F B3 

05000 

OR 

E 

4B80 28D2 

05010 

JR 

Z,V1 

4B82 CDB24B 

05020 

CALL 

READB 

4BS5 23 

05030 

INC 

HL 

4B86 2SDB 

05040 

JR 

2 ,02 

4B88 38D? 

05050 

JR 

C, 02 

4B8A BE 

Ü5060 

CP 

(HL) 

4BSB C8 

05070 

RET 

Z 

4B8C C3674B 

05080 

JP 

V3 


05090 

* 



05100 

; Unterprogramme 


05110 

* 

9 


4B8F 212DF7 

05120 WAIT 

LD 

HL,TEXTO 

4B92 CD13F4 

05130 

CALL 

PRINT 

4B95 CD2B00 

05140 W1 

CALL 

INCH 

4B98 FEOD 

05150 

CP 

CR 

4B9A 20F9 

05160 

JR 

NZ,W1 

4B9C C9 

05170 

RET 



05180 

■ 

» 


4B9D 06FF 

05190 WEITES 

LD 

B, 255 

4B9F 3EAA 

05200 WR1 

LD 

A,OAAH 

4BA1 CD1F02 

05210 

CALL 

WRITEB 

4BA4 3A40F8 

05220 

LD 

A,(0FS40H) 

4BA7 CB57 

05230 

BIT 

2, A 

4BA9 CO 

05240 

RET 

NZ 

4BAA 10F3 

05250 

DJNZ 

WR1 

4BAC AF 

05260 

XOR 

A 

4BAD 3E66 

05270 

LD 

A, 66H 

4BAF C31F02 

05280 

JP 

WRITEB 


05290 

* 


021F 

05300 WRITEB 

EQU 

021 FH 


05310 

m 


4BB2 D9 

05320 READB 

EXX ' 

i -i? IM bi ^ f - 

4BB3 0608 

05330 

LD 

B,8 

4BBS 1600 

05340 

LD 

D, 0 

4BB7 CDCF4B 

05350 RBi 

CALL 

READBI 

4BBA 3806 

05360 

JR 

C, RB2 

4BBC 10F9 

05370 

DJNZ 

RBI 

4BBE 04 

Ö5380 

INC 

B 

4BBF 7A 

05390 RB3 

LD 

A,D 

4BC0 D9 

05400 

EXX 


4BC1 C9 

05410 

RET 



05420 

• 

> 


4BC2 78 

05430 RB2 

LD 

A, B 

4BC3 FE08 

05440 

CP 

8 

4BC5 28F8 

05450 

JR 

Z, RB3 

4BC7 CB22 

05460 RB4 

SLA 

D 

4BC9 10FC 

05470 

DJNZ 

RB4 

4BCB 37 

05480 

SCF 

; 

4BCC 04 

05490 

INC 

B i 
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4BCD 

18F0 

05500 

JR 

RB3 



05510 

« 


4BCF 

C5 

05520 READBI 

RUSH 

BC 

4BD0 

BBFF 

05530 

IN 

A, (OFFH) 

4BD2 

E601 

05540 

AND 

01 

4BD4 

5F 

05550 

LD 

E, A 

4BD5 

0E00 

05560 

LD 

C,0 

4BD7 

0D 

05570 RI 

DEC 

c 

4BD8 

28 OB 

05580 

JR 

Z,RBII 

4BDA 

DBFF 

05590 

IN 

A, (OFFH) 

4 BBC 

E601 

05600 

AND 

01 

4BDE 

AB 

05610 

XOR 

E 

4BDF 

1F 

05620 

RRA 


4BE0 

30F5 

056.iO 

JR 

NC, RI 

4BE2 

C30802 

05640 

JR 

0208H 

4BE5 

3AF6F7 

05650 RBI1 

LD 

. A,(BF) . 

4BE8 

A7 

05660 

AND 

A 

4BE9 

2307 

05670 

JR 

Z,RBI2 

4BEB 

3A40F8 

05680 

LD 

A,(OF840H) 

4BEE 

CB57 

05690 

BIT 

2, A 

4BF0 

2SE5 

05700 

JR 

Z, RI 

4BF2 

CI 

05710 RBI2 

POP 

BC 

4BF3 

37 

05720 

SCF 

■ 

4BF4 

C9 

05730 

RET 




05740 

* 


4BF5 

3AF6F7 

05750 READS 

LD 

A,(BF) 

4BF8 

32F7F7 

05760 

LD 

(BFS),A 

4BFB 

3E01 

05770 

LD 

A,1 

4BFD 

32F6F7 

05780 

LD 

(BF),A 

4C00 

ES 

05790 

PUSH 

HL 

4C01 

D5 

05800 

PUSH 

DE 

4C02 

C5 

05810 

PUSH 

BC 

4 CO 3 

3E05 

05820 

LD 

A. 5 

4C05 

3226F0 

05830 

LD .. 

(0F026H), A 

4C08 

3227F0 

05840 

LD 

(0F027H),A 

4C0B 

01AA80 

05350 RS1 

LD 

BC,0BOAAH 

4C0E 

CDCF4B 

05860 RS2 

CALL 

READBI 

4C11 

381A 

05870 

JR 

C,RS3 

4C13 

B9 

05880 

CP 

C 

4C14 

20F5 

05890 

JR 

NZ,RS1 

4C16 

3EFF 

05900 

LD 

A, 255 

4C18 

A9 

05910 

XOR 

C 

4C19 

4F 

05920 

LD 

C, A 

4C1A 

10F2 

05930 

DJNZ 

RS2 

4C1C 

CDCF4B 

05940 RS4 

CALL 

READBI 

4C1F 

380C 

05950 

JR 

C, RS3 

4C21 

FE66 

05960 

CP 

66H 

4C23 

20F7 

05970 

JR 

NZ,RS4 

4C25 

3E2A 

05980 

LD 

A, 

4C27 

322644 

05990 

LD 

(4426H),A 

4C2A 

322744 

06000 

LD 

(4427H),A 

4C2D 

CI 

06010 RS3 

POP 

BC 

4C2E 

Dl 

06020 

POP 

DE 

4C2F 

El 

06030 

POP 

HL 

4C30 

3AF7F7 

06040 

LD 

A,(BFS) 

4C33 

32F6F7 

06050 

LD 

(BF),A 

4C36 

C9 

06060 

RET 

) 



06070 

• 

i 

0032 


06080 

DEFS 

so ; 

4C69 


06090 BUFFER 

EGU 

* : 


I 
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06100 

■ 


F400 


06110 

ORG 

0F400H 



06120 

■ 

1 




06130 

; Drucker (Ein/Au; 



06140 

* 


F400 

3AFSF7 

06150 DREA 

LD 

A, (DF) 

F403 

EEFF 

06160 

XOR 

255 

F4Ö5 

32F8F7 

06170 

LD 

(DF),A 

F408 

3A7FF5 

06180 

LD 

A, (DA) 

F40B 

EE64 

06190 

XOR 

’d’ ; ’ ? 

F40D 

327FF5 

06200 

LD 

(DA),A 

F410 

C30048 

06210 

JF‘ 

START 



06220 

• 


F413 

7E 

06230 PRINT 

LD 

A,(HL) 

F414 

A7 

06240 

AND 

A 

F415 

OT 

06250 

INC 

HL 

F416 

2809 

06260 

JR 

Z, PR2 

F41S 

FEFF 

06270 

CP 

255 

F41A 

2812 

06280 

JR 

1 1 PR3 

F41C 

CD3BF4 

06290 

CALL 

OUTCH 

F41F 

18F2 

06300 

JR 

PRINT 



06310 

? 


F421 

D5 

06320 PR2 

PUSH 

DE 

F422 

CD2B0Ö 

06330 

CALL 

INCH 

F425 

FE60 

06340 

CP 

6 OH 

F427 

CC2B00 

06350 PR1 

CALL 

Z,INCH 

F42A 

2SFB 

06360 

JR 

Z, PR1 

F42C 

Dl 

06370 

POP 

DE 

F42D 

C9 

06380 

RET 




06390 

• 


F42E 

C5 

06400 PR3 

PUSH 

BC 

F42F 

46 

06410 

LD 

B, (HL) 

F430 

23 

06420 

INC 

HL 

F431 

7E 

06430 PR4 

LD 

A,(HL) 

F432 

CD3BF4 

06440 

CALL 

OUTCH 

F435 

10FA 

06450 

DJNZ 

PR 4 

F437 

23 

06460 

INC 

HL 

F433 

CI 

064^0 

POP 

BC 

F439 

1SD8 

06480 

JR 

PRINT 



06490 

• 

9 


0G2B 


06500 INCH 

EGU 

002BH 



06510 

• 

1 


F43B 

D5 

06520 0UTCH 

PUSH 

DE 

F43C 

F5 

06530 

PUSH 

AF 

F43D 

CD33Ö0 

06540 

CALL 

33H 

F440 

Fl 

06550 

POP 

AF 

F441 

57 

06560 

LD 

D, A 

F442 

3AF9F7 

06570 

LD 

A,(DFLAG) 

F445 

A7 

06580 

AND 

A 

F446 

7A 

06590 

LD 

A,D 

F447 

C43B00 

06600 

CALL 

NZ,3BH 

F44A 

Dl 

06610 

POP 

DE 

F44B 

C9 

06620 

RET 

, 



06630 

* 

9 




06640 

« 

j 


F44C 

7C 

06650 PRH 

LD 

A,H 

F44D 

CD51F4 

06660 

CALL 

PRBYTE 

F450 

7D 

06670 

LD 

A, L 

F451 

F5 

06680 PRBYTE 

PUSH 

AF 

F452 

0F 

06690 

RRCA 
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F453 

OF 

06700 

RRCA 


F454 

OF 

06710 

RRCA 


F455 

OF 

06720 

RRCA 


F456 

CD5AF4 

06730 

CALL 

PRNIB 

F459 

Fl 

06740 

POP 

AF 

F45A 

E60F 

06750 PRNIB 

AND 

OFH 

F45C 

FEOA 

06760 

CP 

10 

F45E 

3802 

06770 

JR 

C,PN1 

F460 

C607 

06780 

ADD 

A, 7 A 7 9’ -1 

F462 

C630 

06790 PNI 

ADD 

A, 7 O 7 

F464 

C33BF4 

06300 

ÖP 

OUT CH 



06810 

■ 


F467 

CD4CF4 

06820 PRHEX 

CALL 

PRH 

F46A 

3E48 

06830 

LD 

A, 7 H 7 

F46C 

C33BF4 

06840 

JP 

OUTCH 



06850 

• 

* 


F46F 

2AEFF7 

06860 PRBL 

LD 

HL,(LSTREC) 

F472 

7D 

06870 

LD 

A, L 

F473 

B4 

06880 

OR 

H 

F474 

C8 

06890 

RET 

Z 

F475 

D5 

06900 

PUSH 

DE 

F476 

215CF7 

06910 

LD 

HL,TEXT 11 

F479 

CD13F4 

06920 

CALL 

PRINT 

F47C 

2AEDF7 

06930 

LD 

HL,(LSTRAC) 

F47F 

E5 

06940 

PUSH 

HL 

F480 

CD67F4 

06950 

CALL 

PRHEX 

F483 

3E2B 

06960 

LD 

A, 7 -’ 

F4S5 

CD3BF4 

06970 

CALL 

OUTCH 

F48S 

2AEFF7 

06980 

LD 

HL,<LSTREC) 

F48B 

CD67F4 

06990 

CALL 

PRHEX 

F48E 

Dl 

07000 

POP 

DE 

F48F 

A7 

07010 

AND 

A 

F490 

ED52 

07020 

SBC 

HL, DE 

F492 

Dl 

07030 

POP 

DE 

F493 

7C 

07040 . .. 

LD - 

A.H 

F494 

A7 

07050 

AND 

A 

F495 

CO 

07060 

RET 

NZ 

F496 

7D 

07070 

LD 

A,L 

F497 

FE 03 

07080 

CP 

3 

F499 

DO 

07090 

RET 

NC 

F49A 

C5 

07100 

PUSH 

BC 

F49B 

45 

07110 

LD 

B,L 

F49C 

04 

07120 

INC 

B 

F49D 

21E7F7 

07130 

LD 

HL,TEXT20 

F4A0 

CD13F4 

07140 

CALL 

PRINT 

F4A3 

2AF3F7 

07150 

LD 

HL,iLSTADl) 

F4A6 

7E 

07160 PRBL1 

LD 

A,<HL) 

F4A7 

CD51F4 

07170 

CALL 

PRBYTE 

F4AA 

3E48 

07180 

LD 

A, 7 H 7 

F4AC 

CD3BF4 

07190 

CALL 

OUTCH 

F4AF 

3E20 

07200 

LD 

A, 7 7 

F4B1 

CD3BF4 

07210 

CALL 

OUTCH 

F4B4 

23 

07220 

INC 

HL 

F4B5 

10EF 

07230 

DJNZ 

PRBL1 

F4B7 

CI 

07240 

POP 

BC 

F4B8 

C9 

07250 

RET 




07260 

» 

1 



07270 

* 




07280 

• 


F4B9 

EB 

07290 ENDEI 

EX 

DE, HL 
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F4BA CDBFF4 

07300 

CALL 

ENDE 

F4BD EB 

07310 

EX 

DE, HL 

F4BE C9 

07320 

RET 



07330 

? 


F4BF E5 

07340 ENDE 

PUSH 

HL 

F4C0 D5 

07350 

PUSH 

DE 

F4C1 21694C 

07360 

LD 

HL,BUFFER 

F4C4 ED5BEBF7 

07370 

LD 

DE, (FLEN) 

F4C8 19 

07380 

ADD 

HL, DE 

F4C9 37 

07390 

SCF 


F4CA Dl 

07400 

POP 

DE 

F4CB ED52 

07410 

SBC 

HL, DE 

F4CD El 

07420 

POP 

HL 

F4CE DO 

07430 

RET 

NC 

F4CF Dl 

07440 

POP 

DE 

F4D0 21D6F7 

07450 

LD 

HL,TEXT19 

F4D3 CD13F4 

07460 

CALL 

PRINT 

F4D6 C3414A 

07470 

JP 

Li 10 


07480 

• 

5 



07490 

* 



07500 

; Te:<te 



07510 

* 

9 


F4D9 IC 

07520 TEXT! 

DEFB 

ICH 

* ■ ' - ' F4DA 1F 

07530 

DEFB 

1FH ' 

F4DB 43 

07540 

DEFM 

’COPBIT 03.0 Kassettenkopierprogramm’ 

F4FE OD 

07550 

DEFB 

CR 

F4FF OD 

07560 

DEFB 

CR 

F500 4B 

07570 

DEFM 

’Kopiert beliebige Kassetten bitweise .* 

F525 OD 

07580 

DEFB 

CR : 

F526 OD 

07590 

DEFB 

CF: 

F527 26 

07600 

DEFM 

MC) 1984 Luidger Roeckrath, 5100 Aachen' j 

F54E OD 

07610 

DEFB 

CR 

F54F 20 

07620 

DEFB 

y y 

F550 FF 

07630 

DEFB 

255 

F551 26 

07640 

DEFB 

38 

F552 B4 

07650 

DEFB 

180 

F553 20 

07660 

DEFB 

7 7 

F554 DB 

07670 

DEFB 

219 

F555 FF 

07680 

DEFB 

255 

F556 1A 

07690 

DEFB 

26 

F557 20 

07700 

DEFB 

? ? 

■ -. * ■ F558 DB 

07710 ' - 

DEFB 

. T T * r * ■ ^ ■ tf'J* fl i * — Mtr ► r"« .rV 1 

F559 20 

07720 

DEFM 

>7 

F55E 8E 

07730 

DEFB 

142 * 

F55F 20 

07740 

DEFM 


F564 CF 

07750 

DEFB 

207 

F565 DB 

07760 

DEFB 

219 

F566 20 

07770 

DEFM 

' Funktionen:' 

F573 FF 

07780 

DEFB 

255 

F574 OD 

07790 

DEFB 

13 

F575 20 

07800 

DEFB 

f ? 

F576 DB 

07810 

DEFE 

219 

F577 20 

07820 

DEFM 

7 > 

F579 41 

07830 BA 

DEFM 

’ A ' 

F57C 8E 

07840 

DEFB 

142 

F57D 20 

07850 

DEFM 

7 J 

F57F 20 

07860 DA 

DEFM 

7 7 

F582 CF 

07870 

DEFB 

207 

F563 DB 

07880 

DEFB 

219 

F584 FF 

07890 

DEFB 

255 
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F585 

1A 

07900 

DEFB 

26 




F586 

20 

07910 

DEFB 

y y 




F58? 

DB 

07920 

DEFB 

21 Q 




F588 

20 

07930 

DEFM 

y y 




F5BD 

8E 

07940 

DEFB 

142 




F58E 

20 

07950 

DEFM 





F593 

CF 

07960 

DEFB 

207 




F594 

DB 

07970 

DEFB 

219 




F595 

FF 

07980 

DEFB 

255 




F596 

26 

07990 

DEFB 

38 




F597 

B5 

08000 

DEFB 

181 




F59S 

CF 

OSO 10 

DEFB 

207 




F599 

DB 

08020 

DEFB 

219 



- 

F59A 

FF 

08030 

DEFB 

255 




F59B 

26 

08040 

DEFB 

38 




F59C 

20 

08050 

DEFB 





F59D 

CF 

08060 

DEFB 

207 




F59E 

DB 

■ i oSü7o ' j i 

, DEFB 

219 



* ' <r ‘ ‘«-Vf,* ! 

F59F 

20 

OB 080 

DEFM 

' <L> a d e n' 




F5AC 

FF 

08090 

DEFB 

255 




F5AD 

19 

08100 

DEFB 

25 




F5AE 

20 

08110 

DE^B 





F5AF 

CF 

08120 

DEFB 

207 




FS BO 

DB 

08130 

DEFB 

219 




F5B1 

FF 

OB140 ' 

DEFB 

255 




F5B2 

26 

08150 

DEFB 

38 




FSB 3 

20 

08160 

DEFB 

3 3 




F5B4 

CF 

08170 

DEFB 

207 




F5B5 

DB 

08180 

DEFB 

219 




F5B6 

20 

08190 

DEFM 

:-*y> e r g 1 e 

1 

c 

h e n' 

FSCF 

FF 

08200 

DEFB 

255 




F5D0 

OD 

08210 

DEFB 

13 




F5D1 

20 

08220 

DEFB 

7 3 




F5D2 

CF 

08230 

DEFB 

207 




F5D3 

DB 

08240 

DEFB 

219 




F5D4 

FF 

08250 

DEFB 

255 ; .. 




F5D5 

26 

08260 

DEFB 

38 




F5D6 

20 

08270 

DEFB 





F5D7 

CF 

08280 

DEFB 

207 




F5D8 

DB 

08290 

DEFB 

219 




F5D9 

20 

08300 

DEFM 

* <S> c h r e i 

b 

e 

n J 

F5EE 

FF 

08310 

DEFB 

255 




F5EF 

11 

08320 

DEFB 

17 ! 




F5F0 

20 

08330 

DEFB 

3 ? 




F5F1 

CF 

08340 

DEFB 

207 




F5F2 

DB 

08350 

DEFB 

219 




F5F3 

FF 

08360 

DEFB 

255 




F5F4 

26 

08370 

DEFB 

38 




F5F5 

20 

08380 

DEFB 

? ? 




F5F6 

CF 

' 08390 

DEFB 

207 




F5F7 

DB 

08400 

DEFB 

219 




F5F8 

20 

08410 

DEFM 

1 <F> e h 1 e r 

t 

a 

p e laden * 

F61E 

CF 

08420 

DEFB 

207 




F61F 

DB 

08430 

DEFB 

219 




F62Ö 

FF 

08440 

DEFB 

255 




F621 

26 

08450 

DEFB 

38 




F622 

20 

08460 

DEFB 

? y 




F623 

CF 

08470 

DEFB 

207 




F624 

DB 

08480 

DEFB 

219 




F625 

20 

08490 

DEFM 

' <A> u t □ m a 

t 

i 

k (E i n / A u s)’ 
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F64B 

CF 

08500 


DEFB 

207 

F64C 

DB 

03510 


DEFB 

219 

F64D 

FF 

08520 


DEFB 

255 

F64E 

26 

08530 


DEFB 

38 

F64F 

20 

03540 


DEFB 

> ? 

F650 

CF 

08550 


DEFB 

207 

F651 

DB 

0B560 


DEFB 

219 

F652 

20 

08570 


DEFM 

1 <D> r u c k e r CE i n / A u 

F678 

CF 

08580 


DEFB 

207 

F679 

DB 

08590 


DEFB 

219 

F67A 

FF 

08600 


DEFB 

255 

F67B 

26 

08610 


DEFB 

38 

F67C 

20 

08620 


DEFB 

7 7 

F67D 

CF 

08630 


DEFB 

207 

F67E 

20 

08640 


DEFB 

7 ? 

F67F 

FF 

08650 


DEFB 

255 

F680 

26 

08660 


DEFB 

38 

F681 

B5 

08670 


DEFB 

181 

F682 

20 

08680 


DEFB 

y y 

F683 

00 

08690 


DEFB 

0 

F684 

IC 

08700 

TEXT2 

DEFB 

ICH 

F685 

1F 

08710 


DEFB 

1FH 

F686 

4B 

08720 


DEFM 

'Kassettenrecorder auf Wiedergat 

F6A6 

0D 

08730 


DEFB 

CR 

F6A7 

0D 

08740 


DEFB 


F6A8 

00 

08750 


DEFB 

0 

F6A9 

OD 

08760 

TEXT3 

DEFB 

CR 

F6AA 

OD 

08770 


DEFB 

CR 

F6AB 

4C 

08780 


DEFM 

'Laenge des Files:' 

F6BC 

00 

08790 


DEFB 

0 

F6BD 

IC 

08800 

TEXT4 

DEFB 

ICH 

F6BE 

1F 

08810 


DEFB 

1FH 

F6BF 

4B 

08820 


DEFM 

' Kassettenrecorder auf Aufnahme : 

F6DD 

OD 

08830 


DEFB 

CR 

F6DE 

OD 

08840 


DEFB 

CR 

F6DF 

00 

08850 


DEFB 

0 

F6E0 

4C 

08860 

TEXT6 

DEFM 

'Laden. . . * 

F6EF 

OD 

08870 

TEXT6A 

DEFB 

CR 

F6F0 

OD 

08880 


DEFE 

CR 

F6F1 

00 

08890 


DEFB 

0 

F6F2 

OD 

08900 

TEXT? 

DEFB 

CR 

F6F3 

OD 

08910 


DEFB 

CR 

F6F4 

53 

• - 08920 


DEFM 

'Schreiben. ■ * 

F70B 

OF 

08930 


DEFB 

15 

F70C 

OD 

08940 


DEFB 

CR 

F70D 

OD 

08950 


DEFB 

CR 

F70E 

00 

08960 


DEFB 

0 

F70F 

56 

08970 

TEXT8 

DEFM 

'Vergleichen. . 

F72A 

OD 

08930 


DEFB 

CR 

F72B 

OD 

08990 


DEFB 

CR 

F72C 

00 

09000 


DEFB 

0 

F72D 

57 

09010 

TEXTO 

DEFM 

'Weiter. Bitte <ENTER> druecken 

F74B 

OD 

09020 


DEFB 

CR 

F74C 

OD 

09030 


DEFB 

CR 

F74D 

00 

09040 


DEFB 

Cf 

F74E 

OD 

09050 

TEXT10 

DEFB 

CR 

F74F 

53 

09060 


DEFM 

'Systemfile: ' 

F75B 

00 

09070 


DEFB 

0 

F75C 

OD 

09080 

TEXT11 

DEFB 

CR 

F75D 

42 

09090 


DEFM 

'Block : ' 


7 
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F769 

00 

09100 


DEFB 

0 

F76A 

0D 

09110 

TEXT18 

DEFB 

CR 

F76B 

7A 

09120 


DEFM 

’zus. Bytes: ’ 

F777 

00 

09130 


DEFB 

n 

F778 

CD 

09140 

TEXT!. 2 

DEFB 

CR 

F779 

45 

09150 


DEFM 

•’Entry : ’ 

F785 

00 

09160 


DEFB 

0 

F786 

21 

09170 

TEXT13 

DEFM 

’!!! Fehler ! ! ! * 

F794 

00 

09180 


DEFB 

0 

F795 

42 

09190 

TEXT14 

DEFM 

’ Basi cf i 1 e : * 

F7A1 

00 

09200 


DEFB 

[} 

F7A2 

4B 

09210 

TEXT15 

DEFM 

’ Ke i n ’ 

F7A7 

56 

09220 

TEXT5 

DEFM 

’Vsrqlsichsfehler 

F7B7 

OB 

09230 


DEFB 

CR 

F7B8 

OB 

09240 


DEFB 

CR 

F7B9 

00 

09250 


DEFB 

0 ! 

F7BA 

4B ■ - 

09260 

TEXT16 

DEFM 

’Kopisnanzahl ? * 

F7C9 

OE 

09270 


DEFB 

14 

F7CA 

00 

092BO 


DEFB 

0 

F7CB 

30 

09290 

TEXT17 

DEFM 

? 0. Kopie' 

F7D3 

OD 

09300 


DEFB 

CR 

F7D4 

OB 

09310 


DEFB 

CR 

F7D5 

00 

09320 


DEFB 

0 

F7D6 

OB 

09330 

TEXT19 

DEFB 

CR 

F7D7 

46 

09340 


DEFM 

’File zu kurz.* 

F7E4 

OD 

09350 


DEFB 

CR 

F7E5 

OB 

09360 


DEFB 

CR 

F7E6 

00 

09370 


DEFB 

0 

F7E7 

20 

093B0 

TEXT20 

DEFM 

* . t 

m 

F7EA 

00 

09390 


DEFB 

0 

F7EB 

0000 

09400 

FLEN 

DEFW 

0 

F7ED 

0000 

09410 

LSTRAC 

DEFW 

0 

F7EF 

0000 

09420 

LSTREC 

DEFW 

0 ' 

F7F1 

0000 

09430 

LSTAB 

DEFW 

0 

F7F3 

0000 

09440 

LSTAD1 

DEFW 

0 - »o * *’ 

F7F5 

00 

09450 

CSF 

DEFB 

0 J 

F7F6 

00 

09460 

BF 

DEFB 

0 

F7F7 

00 

09470 

BFS 

DEFB 

0 

F7F8 

00 

094B0 

BF 

DEFB 

o ! 

F7F9 

00 

09490 

BFLAG 

DEFB 

o ; 

F7FA 

00 

09500 

CF 

DEFB 

o ; 

F7FB 

00 

09510 

FTF 

DEFB 

0 

F7FC 

00 

09520 

AFF 

DEFB 

o 

4800 


09530 


END 

START i 

00000 TOTAL 

ERRORS 




21954 TEXT 

AREA BYTES LEFT 










l ***■'■* 
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2.5.1 Kopierprogramm SAUETAFE 


SAUETAPE ermöglicht Kopieren fast aller flaschinenprogramme 
von Kassette auf Diskette. Flaschinenprogramme, die nicht 
mit Speicherbereichen kollidieren, die das System benötigt, 
können unverändert übernommen werden, andere können 
verschoben werden und werden mit einem Zusatz versehen, der 
nach dem Laden das DOS abschaltet und das Programm in den 
richtigen Speicherbereich verschiebt. 


Funktion 


Savetape ladt von Kassette wie COPBIT (siehe dort). Im 

Speicher wird das Programm abgelegt, wie es auf der 
Kassette mit allen Headern aufgezeichnet war (siehe (2): 
Teil 1.75. Bei der Aufzeichnung auf Diskette muß das Format 
in das DOS-Loaderformat (siehe Teil 1, Kapitel 3.55 

umgewandelt werden. Dies geschieht in der großen Schleife, 
die bei S1 beginnt. Blöcke mit der Anfangsadresse 41E2H 
werden abgefangen, und die Adresse des Sprungbefehles in AE 
gerettet. Nach dem Entrypointblock wird der Entrypoint 
durch diese Autostartadresse ersetzt. 

Fluß das File verschoben werden, so wird das gesamte File so 
auf Diskette aufgezeichnet, daß es später in den 

Speicherbereich von der Uerschiebeadresse an aufwärts 
geladen wird. Für jeden Block wird im Anhang die richtige 
Adresse und die Länge notiert. Nach dem Laden wird zunächst 
der Anhang (UERSCH) gestartet, der zuerst das DOS 

abschaltet, indem er eine Initialisierung des 

Kassettenbasics simuliert. Dann wird ein Block nach dem 
anderen an seine richtige Adresse verschoben. 
Autostartblöcke werden beim verschobenen Aufzeichnen nicht 
wie oben behandelt sondern ganz normal verarbeitet. Beim 
* ‘*Uertei1en der Blöcke nach dem Laden durch den Anhang wird 
also ein Autostartblock an seine richtige Speicheradresse 
übertragen. Damit ein Autostart wirksam wird, ruft der 
Anhang nach Uerschieben des gesamten Programmes die Adresse 
41E2H per CALL auf. Das gleiche tut der SYSTEFI-Befeh 1 nach 
Laden einer Aufzeichnung. Steht dort ein RET, wird nach 
Rückkehr vom Unterprogrammaufruf die richtige Startadresse 
angesprungen. 

Da SAUETAPE sehr umfangreich ist, mußte das Que11programm 
für den C0LASF1 etwas beschnitten werden. Dazu wurden alle 
Texte stark gekürzt. Die Originaltexte sind vor dem 
Que1Iprogamm1isting angegeben* Außerdem müssen alle 
Kommentar und alle Leerzeichen, die syntaktisch nicht 
unbedingt notwendig sind gestrichen, werden um mit dem 
geringen Speicher, den der C0LASF1 übrig läßt auszukommen. 
Auf der Kassette ist SAUETAPE in dieser Form enthalten. 

1 

1 

l 

l 


1 


3 

I 
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Technische Anmerkung s 


SAVETAPE benutzt verschiedene Speicherbereiche, die im 
Co1our-Genie—System eigentlich für bestimmte Systemaufgaben 
reserviert sind. Ein Teil von SAVETAPE ist im Speicher für 
die freiprogrammierbaren Zeichen untergebracht, wodurch 
manchma1 k1eine Bi 1dschirmstörungen auftreten. Durch diese 
intensive Ausnutzung des Speicher war es aber möglieh 25736 
C=6488H im 32K-System, im 16K-3ystem: 9352 = 2488H) Bytes 
für das zu kopierende File zur Verfügung zu stellen. 


■ **+ - ** Hi i. !**■*> ' 1 ■ * , v i b *** * 7 - tf ^ ^ ^ iffcrsw-u 


Nachdem SAVETAPE geladen ist, meldet sich das Haupmenue: 


****** SAVETAPE VI.0 ****** 


Kopiert Kassettenprogramme auf Diskette. 
CC> 1984 Luidger Roeckrath, 5100 Aachen 


+ - 

— 

— 

— 

— 

■ — - 

~— 

— 

— 

■ 


+ - 

■ +-+ 

I 

Funktionen 

. 4 
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I 

<L> 
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* f / 
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JT ^ r f J 
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I 

<V> 
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I 
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I 

<S> 

p 

0 

i 

c 
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r 

n 

a u 

f D 

i s k I 

I 












I 

I 

< F > 

e 

h 

1 

e 

r 

t 

a 

P 

e 1 

ade 

n I 

I 












I 

I 

< A > 

u 

t 

o 

m 

a 

t 

i 

k 

CE 

in/ 

A u s) I 

I 












I 

I 

<D> 

r 

u 

c 

k 

e 

r 


CE 

i n 

/Au 

s) I 

I 












I 
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— 

— - 

— 


— 

-— 

— 




-+ 


Durch Antippen der Buchstaben in <> kann die entsprechende 
Funktion angeuählt werden. Ist die jeweilige Funktion 

beendet, wird automatisch ins Hauptmenue zurUckgekehrt. 

1 

1 

In den beiden Kästen hinter "Funktion:” wird der Zustand 
der Flags für die Automatik und den Drucker angezeigt. ”A" 
bedeutet Automatik an, W D" bedeutet Drucker ein. 


I 









Se i te 156 


E 
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f 


E 


t 

Nach der Aufforderung, 1 den Kassettenrecorder 

ui edergabebere i t zu machen und deren Bes tat, i gung , beg i nnt 
SAUETAPE das Programm zu lesen. Sobald der Header erkannt 
uurde, erseheinen in der oberen, rechten Bi1dschirmecke die 
zuei Sterne. Das File uird von da an Byte für Byte 
eingelesen und im Speieher abge1egt. So11te eine 
Aufzeichnung am Ende kein vollständiges Byte mehr haben 
(bei geschützten Formaten), werden auch die restlichen Bits 
richtig geladen und gespeichert. 

Während des Ladens läuft in der Bi1dschirmmitte der 
eingelesene Text durch. Ueiterhin uird bei Systemfi1es ein 
F gefolgt vom Filenamen, ein B für jeden Block und ein E 
für den Entrypointb1ock angezeigt. 

Beispiel: C0LI10N 

FCOLtlONBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBE 

I 

Das Laden uird unter folgenden Bedingungen gestoppt: 

1) Automatik Ein (Startbedingung) 

soba1d eine Pause in der Aufzeichnung auftritt. 

2) Automatik Aus j 

sobaId eine Pause auftritt und die <BREAK>-Taste gedrückt 
wird. 

I 

Will man den Ladevorgang mitten in einer Aufzeichnung 
beenden, kann man die Pause durch Anhaiten des 

Kassettenrecorder erzeugen. Auch uenn der Header gesucht 
uird, a1 so bevor die zuei Sterne erscheinen, ist es 

M ' möglich, den Ladevorgang abzubrechen. Hier ist nur 

erforderlich die <BREAK>-Taste zu drücken, der 

Kassettenrekorder braucht nicht angeha1ten zu werden. 


r* *. 
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Analyse der geladenen Aufzeichung 


Nach Beendigung des LadeVorgangs uird die geladenen 
Aufzeichnung analysiert. Dabei uird festgeste11t, ob es 
sich um ein System- oder Basicfile handelt: 

1) Systemfi1e: 

Das Format für Systemfi1es ist fo1gendes C siehe auch 
Colou?—Genie-ROM—Listing): 


Filename: 55H 6 Bytes Filename ( 

-i .. Block: - 3CH Länge Startadresse (LSB/MSB) Datenbytes * ^ 

Prüfsumme 

Entry: 78H Entrypoint (LSB/MSB) 

Beispiel: COLMON (6000H-6FFFH) | 

Filename: 55H 43H 4FH 4CH 4DH 4FH 4EH - 55H COLMON 
Block : 3CH 80H 88H 60H C128 Datenbytes) (Prüfsumme) 

= 6000H-607FH 
<30 ähnliche Blöcke> 

Block : SCH 80H 80H 6FH (128 Datenbytes) (Prüfsumme) 

= 6F80H-6FFFH 

Entry : 78H 00H 60H = 6000H 

SAVETAPE erkennt automatisch das Systemformat und gibt in 
obigen Beispiel aus: 

1 

1 Systemfile: COLMON 

i - - Block , : 6000H-6FFFH f • ■ [ 1 .* t j. w. ?■» •; s. * '*3— .Jtf r :i 

Entry : 6000H 

1 Bi 1den mehrere Blöcke des Systemfi1 es einen 

j zusammenhängenden Speicherblock, uird nur dieser angezeigt 

’ (siehe Beispiel.). 

| * 

Bei Blöcken zuisehen 1 und 3 Bytes Länge uird zusätzlich 
der Inhalt des Blocks angezeigt. Da diese Blöcke oft 
Sprungvektoren sind, die übersehrieben werden, ist diese 
Information besonders uertvol1. Ein Sprungbefeh 1 der auf 
die Adresse 41E2H-41E4H ge1aden uird, bedeutet einen 
Autostart. Sie können a1so sofort die Startadresse eines 
Programmes mit Autostart ab1esen, z.B.: 

Block : 41E2H-41E4H : C3H E8H 41H 

I 

bedeutet, daß soba1d der Entry im Systemfi1e erreicht, 

, automatisch die Adresse 41E8H angesprungen uird. 

Bei feh1erhaften B1öcken uird nur der Block des 
Systemfiles, der den Fehler enthielt, entsprechend markiert 
ausgedruckt: 

Systemfile: COLMON 

! Block : 6000H—637FH 

Block : 6380H-63FFH!!! Fehler !!! 
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Block : 6480H-6FFFH | 

Entry : 6000H | 

Vor jedem Block (55H, 3CH, 78H) können zusätzliche Bytes 
stehen, die vom System-Loader im ROH einfach überlesen 
uerden. SAUETAPE zeigt deren Anzahl an* Bei Fehler 
erscheint auch häufig diese Anzeige: 

Systemfile: COLHOH 
Block : 6000H-637FH 

Block : 6380H-63FFH!!! Fehler !!t 

zus. Bytes: 0073H 

Block : 6480H-64FFH 

Entry : 6000H 

Auch nach dem Entry können bei geschützten Formaten 

zusätzliche Bytes auftreten* 

2> Basicprogramme 

Baslcprogramme uerden folgendermaßen aufgezeichnet: 

Filename: 1 Byte 

Basictext, uie im Speicher einschließlich der drei 0 am 
Ende. 

CSiehe Co1our-Genie-ROM-Listing) 

Basicprogramme enthalten keine Prüfsumme, aber durch das 
Pointersystem (jede Zeile enthält einen Pointer auf die 
nächte Zeile) kann die geladene Aufzeichnung im geuissen 
Rahmen geprüft uerden, uobei es unerheblich ist, uo das 
Basicprogramm vorher im Speicher stand. 

Beispiel: Demoprogramm 

Basicfile: D 

*Bei Fehlern im Pointersystem uird für jeden falschen 
Pointer die Keldung Fehler ausgegeben:* ... *, , 

Basicfi1e: D 
! * t Fehler !!! 

! ♦ ! Fehler !!! 


Bei beiden Filetypen kann eine ueitere Fehlermeldung 
erseheinen: 

File zu kurz. 

Diese erscheint zum Beispiel, uenn ein Systemprogramm 
mitten im Block abbricht oder der Entry fehlt und bei einem 
Basicprogramm, uenn die drei 0 am Ende fehlen. 

Bei Datenaufzeichnungen kann entueder nichts erscheinen 
oder es kann zufällig als einer der Filetypen erkannt 
uerden. Dann erscheinen höchstuahrscheinlich zahlreiche 
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Fehlermeldungen. [ 

Eine geladene Aufzeichung seht bis zum nächsten Laden für 
Vergleiche und zum Aufzeichnen zur Verfügung 

Die Analyse des Files wird bei eingeschaltetem Drucker (<D> 
im Hauptmenue) paralell zur Bildschirmausgabe auf den 
Drucker ausgegeben. 


Vergleichen 


Die in den Speicher geladenen Aufzeichung kann mit einer 
weiteren verglichen werden. Abbruch wie beim Laden und 
automatisch beim 1. Ladefehler. Beim Vergleichen wird der 
eingelesene Text nicht auf dem Bildschirm angezeigt. Die 
Anzeige ”Fname BBBBBBBBBBE” erscheint, wenn das zu 
vergleichende File mit ”L” geladen wurde, und nicht, wenn 
es mit ”F” geladen wurde. 


Schreiben 


Das Format für Systemfiles auf Diskette ist folgendermaßen: 
CFilename steht nur in Direktory!) 

Block : B1 Länge Startadresse CLSB/MSB) Datenbytes ' * **'**' 

Entry : 02 02 Einsprungadresse 

Die Länge eines Blockes gilt einschließlich der 
Startadresse. Daher entspricht 00 = 254 Datenbytes, 01 = 
255 und 02 =256!> 

Beispiel: COLMON 

Block : 01H 82H 00H 60H (128 Datenbytes) 

< 30 ähnliche Blöcke > 

Block : 01H 82H 80H 6FK C128 Datenbytes) 

Entry : 02H 02H 00H 60H I 

SAVETAPE setzt das oben beschriebene Kassettenformat in das 
Diskettenformat um. Viele Spie1programme belegen 
Speicherbereiche, die das Disk-Basic auch benötigt. Ein 
direktes Laden auf diese Bereiche von Disk würde a1so zu 
einem Systemabsturz führen. Daher bietet SAVETAPE nach der 
Abfrage des Filenamen, welche mit einem korrekten Filenamen 
(Fi1ename</Typ<.Password<:d>>>) beantwortet werden muß, die 
Höglichkeit das Programm zu Verschieben. Uenn diese 
Möglichkeit gewählt wird (durch <J>), wird das gesamte 
Programm (auch wenn es aus verschiedenen Speicherbereichen 
besteht) in einem Block startend mit der bei der Frage 
"neue Ladeadresse” hexdezimal angegebenen Adresse (<ENTER> 
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*= 60005 auf Diskette gespeichert. Dahinter wird ein Zusatz 
gehängt, der beim Aufruf des Programmes mit CMD”S filename" 
dieses nach Abschalten des DOS wieder in die 

Speicherbereiche überträgt, in denen es ursprünglich 
lokalisiert war. Entrypoint und Autostart werden beachtet, 
so daß das Programm nach Laden und Verschieben 
ordnungsgemäß gestartet wird. j 

Ein Verschieben ist bei allen Programmen notwendig, die 
Blöcke haben, die unter 5C9AH laden, da das DOS den 
Speicherbereich 5800H- folgendermaßen nutzt: 

: allgemeine Verwendung: Disk-Basic - DOS 
nicht genau bekannt 

: Filebuffer ”0” : FCB und Sektorbuffer 

(SB9AH-5C99H) für CMD"S”, CMD”L”, SAVE, LOAD, 
etc. 

: Filebuffer 1 für Disk-Basic 
OPEN A$,1,F$ I 

: Filebuffer 2 dito 
: Filebuffer 3 dito 

Cbei mehr als 3 Files entsprechend weiter) 

: Programmtext 

'• 1*. ’ > 1 . 1 ■ *'■#»■** I W*. . 1 — 

Formate mit Preloader und/oder 

Bausrateumscha1tung werden erkannt und entsprechend j 

verarbeitet. Bei diesen Formaten Czu erkennen durch $ 

zahl reiche ”zus. Bytes”> ist ein Verschieben immer zu | 

empfehlen. 1 

I 3 


5800H-5B77H 

5B78H-5C99H 

5C9AH-5DBBH 

5DBCH-5EDDH 

5EDEH-5FFFH 

6000H- 

*' * ' * * 

Bestimmte 




Die komplexen Analysevorgänge beim Laden machen das Laden 
mit SAVETAPE etwas kritischer als das norma1e Ein1aden mit 
CLOAD oder SYSTEM. Desha1b kann mit <F> eine weitere 
Laderoutine aufgerufen werden, die während des Laden nur 
den Text durchlaufen läßt, aber nicht "Fnarne BBBBBE” 

4 t m, % 1J *4 f ausdruckt . Dadurch werden viele 1angwierige Operatlonen 
eingespart und das Laden ist erheb1ich unkritischer. Bei 
Ladeproblernen helfen im übrigen oft auch folgende Tips: 

1) Höhen auf Maximum i 

2 > TonkopfJustage: Uährend der Wiedergabe auf maximale 
Höhenwiedergabe (deutlich zu hören) abstimmen. Nach 
erfolgreichem Laden wieder auf Ihre Standardeinstellung mit 
einer Ihrer a1ten Kassetten einstel1en und dann die Kopien 
anfertigen. 

3) Lautstärke: Bei manchen Aufzeichungen hilft starkes 
übersteuern, bei anderen aber eher eine etwas niedrigere 
Wahl der Lautstärke (2). \ 


i 
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11 ' 


Automat: x l< 


Die Automatik (Abbruch des Laden» wenn eine Pause auftritt) 
kann abgescha1tet uerden» wenn eine Aufzeichnung mit Pausen 
geladen werden sol1. Beim Starten des Programmes ist die 
Automatik ein. Durch Eingabe einer <A> im Hauptmenue kann 
sie ab- und wieder eingeschaltet werden. Der Zustand des 
Automatikf1ags kann im Hauptmenue j ederzeit im linken 
Kasten abgelesen werden. 


t's * : 




* . 




UV 




Die Analyse eines geladenen Files kann wahlweise auf einen 
Drucker zusätz1ich ausgedruckt werden. Denn Sie dies 
wünschen» mUßen Sie im Hauptmenue das <D> antippen. Hit der 
gleichen Taste können Sie den Drucker wieder abschalten. 
Der jeuei1ige Zustand kann im rechten Kasten abgelesen 
werden. Bitte achten Sie darauf, daß bei eingeschaltetem 
Drucker, auch wirk1ich ein Drucker angeschlossen und ON 
LINE ist. Sonst bleibt das Programm nach dem Laden stehen! 
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TEXT1 


BA: 

■*'" DA: 


; Origina1texte von SAVETAPE 


> 


Texte 


DEFB 

ICH 

DEFB 

1 FH 

DEFM 

> 

DEFB 

CR 

DEFB 

CR 

DEFM 

'Kop 

DEFB 

CR 

DEFM 

' <C> 

DEFB 

CR 

DEFB 

} > 

DEFB 

255 

DEFB 

38 

DEFB 

180 

DEFB 

> > 

DEFB 

219 

DEFB 

255 

DEFB 

26 

DEFB 

> > 

DEFB 

219 

DEFM 

> 

DEFB 

142 

DEFM 

> 

DEFB 

207 

DEFB 

219 

DEFM 

> F 

DEFB 

255 

DEFB 

13 

DEFB 

> > 

DEFB 

219 

DEFM 

> > 

DEFM 

* A 

DEFB 

142 

DEFM 

* * 

DEFM 


DEFB 

207 

DEFB 

219 

DEFB 

255 

DEFB 

26 

DEFB 

> > 

DEFB 

219 

DEFM 

> 

DEFB 

142 

DEFM 

> 

DEFB 

207 

DEFB 

219 

DEFB 

255 

DEFB 

38 

DEFB 

181 

DEFB 

207 

DEFB 

219 

DEFB 

255 

DEFB 

38 

DEFB 

> > 

DEFB 

207 


****** 


SAVETAPE VI.0 


t ♦ * ♦ * 3 
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1 ■* r' 


DEFB 

219 

DEFü 


DEFB 

255 

DEFB 

25 

DEFB 

* > 

DEFB 

20? 

DEFB 

219 

DEFB 

255 

DEFB 

38 

DEFB 

> > 

DEFB 

207 

DEFB 

219 

DEFH 

> 

DEFB 

255 

DEFB 

13 

DEFB 

> > 

DEFB 

207 

DEFB 

219 

DEFB 

255 

DEFB 

38 

DEFB 

* * 

DEFB 

207 

DEFB 

219 

DEFH 

> 

DEFB 

207 

DEFB 

219 

DEFB 

255 

DEFB 

38 

DEFB 

> > 

DEFB 

207 

DEFB 

219 

DEFH 

ß 

DEFB 

20? 

DEFB 

219 

DEFB 

255 

DEFB 

38 

DEFB 

ß > 

DEFB 

207 

DEFB 

219 

DEFH 

ß 

DEFB 

207 

DEFB 

219 

DEFB 

255 

DEFB 

38 

DEFB 

ß ß 

DEFB 

207 

DEFB 

219 

DEF11 

> 

DEFB 

207 

DEFB 

219 

DEFB 

255 

DEFB 

38 

DEFB 

t > 

DEFB 

207 

DEFB 

> > 

DEFB 

255 

DEFB 

38 

DEFB 

181 

DEFB 

> > 

DEFB 

0 


<L> a d e n 


<U> 


rg lei chen' 


> H ^ 


' r * ‘ i*** n 


v- ’* j1 * - i . ^ re-. 1 * 


<S> chreiben auf Disk 


<F> ehlertape laden 


+* t * ' -* 


* f *r-*- 




<A> utomatik <Ein/Au 


<D> rucker CEin/Aus> 
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TEXT2: 

DEFB 

ICH 


DEFB 

1 FH 


DEFI1 

' Kassettenrecorder auf 


DEFB 

CR 


DEFB 

CR 


DEFB 

0 

TEXT3: 

DEFB 

CR 


DEFB 

CR 


DEFM 

'Laenge des Files:' 


DEFB 

0 

TEXT4: 

DEFB 

ICH 


DEFB 

1 FH 


DEF11 

' Fi 1ename' 


DEFB 

0 

TEXT5B: 

DEFM 

’Uerschieben 7 


DEFB 

0 

TEXT5A: 

DEFM 

'Neue Ladeadresse 7 


DEFB 

0 

TEXT6: 

DEFM 

7 L a d e n * . . * 

TEXT6A: 

DEFB 

CR 


DEFB 

CR 


DEFB 

0 i *-*_„*-. t i 

TEXT?: 

DEFM 

Schreiben. . 


DEFB 

CR 


DEFB 

CR 


DEFB 

0 

TEXT8: 

DEFM 

'Vergleichen 


DEFB 

CR 


DEFB 

CR 


DEFB 

0 

TEXT©: 

DEFM 

7 Weiter. Bitte < ENTER > 


DEFB 

CR 


DEFB 

CR 


DEFB 

0 

TEXT10: 

DEFB 

CR 


DEFM 

'Systemfiie: * 


DEFB 

0 

TEXT11: 

DEFB 

CR 


DEFM 

'Block : ' 


DEFB 

0 

TEXT18: 

DEFB 

CR 


DEFM 

'zus. Bytes: ' 


DEFB 

0 

TEXT12: 

DEFB 

CR 


DEFM 

'Entry : ' 


DEFB 

0 

TEXT13: 

DEFM 

Mit Fehler ♦ ! ♦ ' 


DEFB 

0 

TEXT14: 

DEFM 

'Basicfile : ' 


DEFB 

0 

TEXT15: 

DEFM 

'Kein * 

TEXT5: 

DEFM 

'Vergleichsfeh1er' 


DEFB 

CR 


DEFB 

CR 


DEFB 

0 

TEXT16: 

DEFM 

> o > 

+ 


DEFB 

0 

TEXT17: 

DEFM 

' : Disk-Fehler' 


DEFB 

CR 


DEFB 

CR 


Uiedergabe 


J 


> 


druecken' 
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- t? v > ^ 


^+■4*^ *_ ’fe r*. 
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DEFB 

TEXT19: DEFB 
DEFM 
DEFB 
DEFB 
DEFB 

TEXT20: DEFB 
DEFB 


0 

CR 

* Fi1e zu kurz 
CR 
CR 
0 

> . > 

0 
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00100 
00110 
00120 
00130 


SAVETAPE Version 1.0 vom 18.4.84 


Kopiert Lclour-Senie Kassetten aut Diskette 




00140 

; <c) 

Luidger Röckr; 



00150 

* 

* 

Noppiusstr. l c 



00160 

* 

* 

5100 Aachen 



00170 

■ 

J 

(0241)34962 



00180 

• 

* 




00190 

1 




00200 

• 


00 ÖD 


00210 CR 

EQU 

0DM 



00220 

■ 

9 




00230 

m 

9 




00240 

• 

9 




00250 

; ASE6 


4800 


00260 

ORG 

4800H 

4800 

F3 

UUi/v \ 

00280 START 

DI 


4801 

31EF57 

00290 

LD 

SP,57EFH 

4804 

3E69 

00300 

LD 

A, 105 

4806 

321243 

00310. 

LD 

(4312H),A . 

4809 

3E03 

00320 

LD 

A, 3 

4 BOB 

CDB03F 

00330 

CALL 

3FB0H 

480E 

21C6F4 

00340 

LD 

HL,TEXTI 

4811 

CD00F4 

00350 

CALL 

PRINT 

4SI 4 

CD2B00 

00360 STi 

CALL 

INCH 

4817 

FE61 

00370 

CP 

* a ? 

481.9 

3802 

00380 

JR 

C, ST2 

481B 

D620 

00390 

SUB 

’ a 7 ~ 7 A 7 

48 ID 

FE4C 

00400 ST2 

CP 

J L J 

481F 

28 IC 

00410 

JR 

2,LADEN 

4821 

FE53 

00420 

CP 

’S 7 

4823 

CAF94A 

00430 

JP 

Z,SCHREI 

4826 

FE56 

00440 

CP 

7 V 7 

4828 

CA9351 

00450 

JP 

2,VER6LE 

482B 

FE41 

00460 

CP 

7 A 7 

482D 

CAD34A 

00470 

JP 

Z, AUTOM 

4830 

FE44 

00480 

CP 

7 D 7 

4832 

CAE64A 

00490 

JP 

2, DREA 

4835 

FE 46 

00500 

CP 

jpj >J -' 

4837 

CA3C48 

00510 

JP 

Z,FTAPEL 

483A 

18DB 

00520 

JR 

STI 



00530 

• 

* 




00540 

; Fehlerhaftes Tape 



00550 

• 

V 


483C 

3E 

00560 FTAPEL 

DEFB 

3EH 

483D 

AF 

00570 LADEN 

XOR 

A 

483E 

3295F5 

00580 

LD 

(FTF) ,A 

4841 

21E8F4 

00590 

LD 

HL,TEXT2 

4844 

CD00F4 

00600 

CALL 

PRINT 

4847 

210000 

00610 

LD 

HL, ö 

484A 

2289F5 

00620 

LD 

(LSTREC),HL 

484D 

2287F5 

00630 

LD 

(LSTRAC),HL 

4850 

CDEB51 

00640 

CALL 

WA IT 

4853 

211EF5 

00650 

LD 

HL,TEXT6 

4856 

CD0ÖF4 

00660 

CALL 

PRINT 

4859 

117F46 

00670 

LD 

DE,467FH 

485C 

2UCCB 

00680 

LD 

HL,OCB1CH 

485F 

22C851 

00690 

LD 

(READY),HL 


* "LH f. v. W 


,,‘^>1 ' Im I *i 


- LD A,.. 
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4862 

FD2A2040 

00700 LAD 

LD 

IY,(4020H) 

4866 

3E55 

00710 

LD 

a, 

4S68 

328648 

00720 

L.D 

(L1110+1),A 

486B 

21775B 

00730 

LD 

HL,BUFFER-1 

486E 

CD3C52 

00740 

CALL 

READS 

4871 

DA4E4A 

00750 

JP 

C, L110 

4874 

3A95F5 

00760 

LD 

A, (FTF) 

4877 

A7 

00770 

AND 

A 

4878 

207D 

00780 

JR 

NZ,LI 116 

487A 

CDC851 

00790 LI 

CALL 

READY 

487D 

FE 30 

00800 

CP 

3CH 

487F 

280A 

00810 

JR 

Z,L11I1 

4881 

FE73 

00820 

CP 

78H 

4883 

2861 

00830 

JR 

Z,LI 115 

4835 

FE55 

00840 LI 110 

CP 

55H 

4887 

2844 

00850 

JR 

Z,LI 114 

4889 

18EF 

00860 

JR 

LI 

486B 

FD360042 

00870 LI 111 

LD 

(IY+0),’B J 

488F 

FD23 

00880 

INC 

IY 

4891 

AF 

00890 

XOR 

A 

4892 

3294F5 

00900 

LD 

(CF),A 

4895 

CDC851 

00910 

CALL 

READY 

4898 

47 

00920 

LD 

B, A 

4899 

CDC851 

00930 

CALL 

READY 

489C 

09 

00940 

EXX 


489D 

6F 

00950 

LD 

L, A 

469E 

09 

00960 

EXX 


489F 

CDCS51 

00970 

CALL 

READY 

48A2 

09 

00980 

EXX 


48A3 

67 

00990 

LD 

H, A 

48A4 

D9 

01000 

EXX 


48A5 

CDC851 

01010 LI 112 

CALL 

READY 

43A8 

09 

01020 

EXX 


48A9 

7C 

01030 

LD 

A, H 

48AA 

FE43 

01040 

CP 

43H 

‘ 48AC 

70 

01050 

LD 

A,l 

48AD 

23 

01060 

INC 

HL 

48AE 

09 

01070 

EXX 


48AF 

2010 

01080 

JR 

NZ,LI 113 

48B1 

FE12 

01090 

CP 

12H 

48B3 

2000 

01100 

JR 

NZ,L1i13 

48B5 

7E 

01110 

LD 

A,(HL) 

48B6 

321243 

01120 

LD 

(4312H),A 

48B9 

3669 

01130 

LD 

(HL),105 

48BB 

ED44 

01140 

NEG 


48BÜ 

86 

01150 

ADD 

A,(HL) 

48BE 

3294F5 

01160 

LD 

(CF),A 

48C1 

10E2 

01170 LI 113 

DJNZ 

LI 112 

48C3 

CDC351 

01180 

CALL 

READY 

48C6 

3A94F5 

01190 

LD 

A,(CF) 

4809 

86 

01200 

ADD 

A,(HL) 

48CA 

77 

01210 

LD 

(HL),A 

4BCB 

18AD 

01220 

JR 

LI ' 

48CD 

FD360046 

01230 LI114 

LD 

(IY+0),’F' 

48D1 

FD23 

01240 

INC 

IY 

48D3 

0606 

01250 

LD 

B, 6 

48D5 

CDC851 

01260 LI1114 

CALL 

READY 

48B8 

F07700 

01270 

LD 

(IY+O),A 

48DB 

FD23 

01280 

INC 

IY 

48DD 

10F6 

01290 

DJNZ 

LI 1114 




r <* *. t r tzs, < ■ i * l -.. 
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4SDF 

3E3C 

01300 

LD 

A, 3CH 

49E1 

328648 

01310 

LD 

(LI 110+1),A 

4 BE 4 

1894 

01320 

JR 

LI 

48E6 

FD360045 

01330 LI 115 

LD 

(IY+O), 

4BEA 

FD23 

01340 

INC 

IY 

4BEC 

CDC851 

01350 

CALL 

READY 

48EF 

CDC851 

01360 

CALL 

READY 

4BF2 

3E69 

01370 

LD 

A, 105 

48F4 

321243 

01380 

LD 

(4312H),A 

48F7 

CDC851 

01390 LI 116 

CALL 

READY 

4BFA 

1SFB 

01400 

JR 

LI 116 

48FC 

3EÖ0 

01410 L22 

LD 

A, 0 

4BFE 

BF 

01420 

ADC 

A, A 

48FF 

3296F5 

01430 

LD 

(AFF) ,A 

4902 

FD222040 

01440 

LD 

(4020H),IY 

4906 

3A92F5 

01450 

LD 

A,(DF) 

4909 

3293F5 

01460 

LD 

(DFLAG),A 

490C 

11785B 

01470 

LD 

DE,BUFFER 

490F 

A7 

01480 

AND 

A 

4910 

ED52 

01490 

SBC 

HL, DE 

4912 

E5 

01500 

PUSH 

HL 

4913 

21F6F4 

01510 

LD 

HL,TEXT3 

4916 

CDQ0F4 

01520 , 

CALL 

PRINT 

4919 

El 

01530 

POP 

HL 

491A 

CD54F4 

01540 

CALL 

PRHEX 

491D 

CDB94A 

01550 

CALL 

CRCR 

4920 

22B5F5 

01560 

LD 

(FLEN),HL 

4923 

118046 

01570 

LD 

DE,4680H 

4926 

0680 

01580 

LD 

B, 128 

4928 

3E20 

01590 

LD 

A,’ ’ 

492A 

12 

01600 LI 13 

LD 

(DE),A 

492B 

13 

01610 

INC 

DE 

492C 

1OFC 

01620 

DJNZ 

LI 13 

492E 

11785B 

01630 

LD 

DE,BUFFER 

4931 

2A85F5 

01640 

LD 

HL,(FLEN) 

4934 

19 

01650 

ADD 

HL, DE 

4935 

2B 

01660 

DEC 

HL 

4936 

3A96F5 

01670 

LD 

A,(AFF) 

4939 

A7 

01680 

AND 

A 

493A 

2801 

01690 

JR 

Z,LI 14 

493C 

2B 

01700 

DEC 

HL * - 

493D 

CDA54A 

01710 LI 14 

CALL 

NULL 

4940 

CA584A 

01720 

JP 

Z,L100 

4943 

1A 

01730 

LD 

A,(DE) 

4944 

FE55 

01740 

CP 

’U ? 

4946 

2806 

01750 

JR 

Z,L115 

4948 

CDA54A 

01760 

CALL 

NULL 

494B 

CA584A 

01770 

JP 

Z,L100 

494E 

21FFFF 

01780 LI 15 

LD 

HL,OFFFFH 

4951 

1A 

01790 LI 12 

LD 

A,(DE) 

4952 

CDACF4 

01800 

CALL 

ENDE 

4955 

23 

01810 

INC 

HL 

4956 

13 

01820 

INC 

DE 

4957 

FE55 

01830 

CP 


4959 

20F6 

01840 

JR 

NZ,LI12 

495B 

7C 

01850 

LD 

A, H 

495C 

B5 

01860 

OR 

L 

495D 

E5 

01870 

PUSH 

HL 

495E 

F5 

01880 

PUSH 

AF 

495F 

2144F5 

01890 

LD 

HL,TEXT18 
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4962 

C400F4 

01900 

CALL 

NZ,PRINT 

4965 

Fl 

01910 

POP 

AF 

4966 

El 

01920 

POP 

HL 

4967 

CBC14A 

01930 

CALL 

MZUS 

4 Q 6A 

C454F4 

01940 

CALL 

NZ,PRHEX 

496D 

2136F5 

01950 

LD 

HL,TEXT10 

4970 

CDOOF4 

01960 

CALL 

PRINT 

4973 

0606 

01970 

LD 

B,6 

4975 

1A 

01980 LU 

LD 

A, (DE) 

4976 

CD28F4 

01990 

CALL 

OUTCH 

4979 

13 

02000 

INC 

DE 

497A 

i 0F9 

02010 

DJNZ 

LI 1 

497C 

21FFFF 

02020 LI2 

LD 

HL,OFFFFH 

497F 

1A 

02030 L121 

LD 

A,(DE) 

4980 

CDACF4 

02040 

CALL 

ENDE 

4983 

13 

02050 

INC 

DE 

4984 

23 

02060 

INC 

HL- 

4955 

FE78 

02070 ' 

CP 

78H 

4987 

2304 

02080 

JR 

Z, L122 

4989 

FE3C 

02090 

CP 

3CH 

498B 

20F2 

02100 

JR 

NZ, L.121 

498D 

F5 

02110 LI22 

PUSH 

AF 

498E 

7C 

02120 

LD 

A, H 

498F 

B5 

02130 

OR 

L 

4990 

280E 

02140 

JR 

Z,L123 

4992 

CDC14A 

02150 

CALL 

MZUS 

4995 

E5 

02160 

PUSH 

HL 

4996 

2144F5 

02170 

LD 

HL,TEXT 18 

4999 

CDOOF4 

02180 

CALL 

PRINT 

499C 

El 

02190 

POP 

HL 

499D 

CD54F4 

02200 

CALL 

PRHEX 

49A0 

Fl 

02210 LI23 

POP 

AF 

49A1 

FE78 

02220 

CP 

78H 

49A3 

2873 

02230 

JR 

Z, L15 

49A5 

1A 

02240 

LD 

A,(DE) 

49A6 

4F 

02250 ‘ ' 

LD 

C, A 

49A7 

13 

02260 

INC 

DE 

49A8 

1A 

02270 

LD 

A,(DE) 

49A9 

6F 

02280 

LD 

L, A 

49AA 

13 

02290 

INC 

DE 

49AB 

1A 

02300 

LD 

A,(DE) 

49AC 

67 

02310 

LD 

H, A 

49AD 

13 

02320 

INC 

DE 

49AE 

85 

02330 

ADD 

A,L 

49AF 

47 

02340 

LD 

B, A 

4 9 BO 

C5 

02350 

PUSH 

BC 

49B1 

ED538BF5 

02360 

LD 

(LSTAD),DE 

49B5 

1A 

02370 L14 

LD 

A,(DE) 

49B6 

CDACF4 

02380 

CALL 

ENDE 

49B9 

13 

02390 

INC 

DE 

49BA 

80 

02400 

ADD 

A,B 

49BB 

47 

02410 

LD 

B, A 

49BC 

0D 

02420 

DEC 

C 

49BD 

20F6 

02430 

JR 

NZ,L14 

49BF 

1A 

02440 

LD 

A,(DE) 

49C0 

13 

02450 

INC 

DE 

49C1 

90 

02460 

SUB 

B 

49C2 

2800 

02470 

JR 

Z, L18 

49C4 

E5 

02480 

PUSH 

HL 

49C5 

CD5CF4 

02490 

CALL 

PRBL 
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49CS El 

02500 

POP 

HL 

49C9 010000 

02510 

LD 

BC, 0 

49CC ED4389F5 

02520 

LD 

(LSTREC),EC 

49DO 32SFF5 

02530 L18 

LD 

(CSF),A 

49D3 CI 

02540 

POP 

BC 

49D4 ES 

02550 

PUSH 

HL 

49D5 D5 

02560 

PUSH 

DE 

49D6 ED5BS9F5 

02570 

LD 

DE,(LSTREC) 

49DA 73B 

02580 

LD 

A, E 

49BB B2 

02590 

OR 

D 

49DC 2003 

02600 

JR 

NZ,L16 

49DE 3C 

02610 

INC 

A 

49DF 1808 

02620 

JR 

L17 

49E1 37 

02630 L16 

SCF 


49E2 ED52 

02640 

SBC 

HL, DE 

49E4 FS 

02650 

PUSH 

AF 

49E5 C45CF4 

02660 

CALL 

NZ,PRBL 

49E8 Fl 

02670 

POP 

AF 

49E9 Dl 

026BO L17 

POP 

DE 

49EA El 

02690 

POP 

HL 

49EB 280B 

02700 

«JR 

Z, L13 

49ED 2287F5 

02710 

LD 

(LSTRAC),HL 

49F0 ES 

02720 

PUSH 

HL 

49F1 2A8BF5 

02730 

LD 

HL,(LSTAD) 

49F4 228DF5 

02740 

LD 

(L.STAD1),HL 

49F7 Ei 

02750 

POP 

HL 

49F8 0600 

02760 L13 

LD 

B, 0 

49FA 0D 

02770 

DEC 

C 

49FB 09 

02780 

ADD 

HL, BC 

49FC 2289F5 

02790 

LD 

(LSTREC),HL 

49FF 3A8FF5 

02800 

LD 

A,(CSF) 

4A02 A7 

02810 

AND 

A 

4A03 CA7C49 

02820 

JP 

Z,L12 

4A06 CD5CF4 

02830 

CALL 

PRBL 

4A09 210000 

02840 

LD 

HL, 0 

4A0C 2289F5 

02850 

LD 

(LSTREC),HL 

4A0F 2152F5 

02860 

LD 

HL,TEXTI 3 

4A12 CDOOF4 

02870 

CALL 

PRINT 

4A15 C37C49 

02880 

JP 

L12 


02890 

1 


4A18 CD5CF4 

02900 L15 

CALL 

PRBL 

4A1B 214BF5 

02910 

LD 

HL,TEXT12 

4A1E CD00F4 

02920 

CALL 

PRINT 

4A21 1A 

02930 

LD 

A,(DE) 

4A22 6F 

02940 

LD 

L, A 

4A23 13 

02950 

INC 

DE 

4A24 1A 

02960 

LD 

A,(DE) 

4A25 67 

02970 

LD 

H,A 

4A26 CD54F4 

02980 

CALL 

F'RHEX 

4A29 13 

02990 

INC 

DE 

4A2A ED5398F5 

03000 

LD 

(ENDSYS),DE 

4A2E 21785B 

03010 

LD 

HL,BUFFER 

4A31 ED4BB5F5 

03020 

LD 

BC,(FLEN) 

4A35 09 

03030 

ADD 

HL, BC 

4A36 A7 

03040 

AND 

A 

4A37 ED52 

03050 

SBC 

HL, DE 

4A39 7D 

03060 

LD 

A,L 

4A3A B4 

03070 

OR 

H 

4A3B 28OE 

03080 

JR 

Z,LI 11 - 

4A3D ES 

03090 

PUSH 

HL 
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4A3E 2144F5 

100 

LD 

HL,7E'T1£> 

4A41 CD00F4 

031 ln 

CmLl 

PRINT 

4A44 El 

03120 

POP 

HL 

4A45 CDC1 J A 

03130 

CALL 

MZUS 

4A4S CD54F4 

0’140 

CAL L 

PPHF.X 

4A4B CPB94A 

03150 LI 11 

CALL 

CRCP 

4A4E HF 

03160 L.110 

XÜF 

A 

4A4F 3293F5 

03170 

LD 

f DFLAb>,A 

4A5Z CDEB51 

03130 W5TART 

CALL 

NA1T 

4A55 C30048 

03190 

JP 

STAFT 


03200 

■ 

n 


4A5B 2I56F5 

03210 LI00 

LD 

HL,7 E»T14 

4A5B CD00F4 

03220 

CALL. 

PRINT 

4A5E 1A 

03230 

LD 

A, »DE' 

4A5F CD26F4 

03240 

CALL 

OUTCH 

4A62 13 

03250 

INC 

DE 

4A63 CPB«4tt 

03260 i 

CALL 

CRCP 

1A66 ES 

032^0 

E* 

DE, HL 

4A67 5E 

03280 LI05 

LD 

E, 1 HL 1 

4Ai>8 23 

03290 

INC 

HL 

4A69 5o 

03300 

LD 

D, LHD 

4A6A 23 

03310 

INC 

HL 

4A6B 23 

03320 

INC 

HL 

4A6C 23 

03370 

INC 

HL 

4A6D 7E 

03340 L101 

LD 

A, 1 HL i 

4A6E CDA6F4 

03350 

CALL 

ENDE! 

4A71 23 

03360 

INC 

HL 

4A 7 2 A7 

03370 

AND 

A 

4A73 20F8 

03380 

JR 

NZ, L.101 

4A 7 5 CDA6F4 

03390 LI02 

CALL 

ENDE 1 

4A73 D5 

03400 

PUSH 

DE 

4A7<3 5E 

03410 

LD 

E,'HL> 

4A 7 A 23 

03420 

INC 

HL 

4A7B 56 

03430 

LD 

D, < HL> 

4A7C 7A 

03440 

LD 

A,D 

4A7B B3 

03450 

QF; 

E 

4A7E E3 

03460 

Ex 

>SP),HL 

4A7F EB 

03470 

El 

DE. HL 

4ABO CI 

03*80 

POP 

BC 

4A81 CA4E4A 

03490 

JP 

Z.LilO 

4A84 E5 

03500 

PUSH 

HL 

4AS5 ED52 

03510 

SBC 

HL, DE 

4A87 09 

03520 

ADD 

HL, BC 

4A88 Dl 

03530 

POP 

DE 

4A89 2B 

03540 

DEC 

HL. 

4A8A 2B 

03550 

DEC 

HL 

4A8B 7E 

03560 

LD 

A, (HL t 

4A8C 23 

03570 

INC 

HL 

4ASD A7 

03580 

AMD 

A 

4A8E 28E5 

03590 

JR 

Z,L102 

4A9Q E5 

03600 

PUSH 

HL 

4A91 2I52F5 

03610 

LD 

HL,TExTi3 

4A94 CDOOF4 

03620 

CALL 

PRINT 

4A97 El 

03630 

POP 

HL 

4A98 CDBC4A 

03640 

CALL 

CR1 

4A9B 7E 

03650 LI03 

LD 

A, (HL> 

4A9C CDA6F4 

03660 

CALL 

ENDE! 

4A9F 23 

03670 

INC 

HL 

4AA0 A7 

03680 

AND 

A 

4AA1 20F8 

03690 

JR 

NZ,L103 


«M 1 1*/ l * J 1 


* " 14 . l/l' 
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4AA3 

18C2 

03700 

JR 

LI 05 



03710 ; 



4AA5 

7E 

03720 NULL 

LD 

A,(HL) 

4AA6 

2B 

03730 

DEC 

HL 

4AA7 

B6 

03740 

OR 

(HL) 

4AA8 

2B 

03750 

DEC 

HL 

4AA9 

B6 

03760 

OR 

(HL) 

4AAA 

23 

03770 

INC 

HL 

4AAB 

CO 

03780 

RET 

NZ 

4AAC 

2B 

03790 

DEC 

HL 

4AAD 

2B 

03800 

DEC 

HL 

4AAE 

7E 

03810 

LD 

A,(HL) 

4AAF 

FE7B 

03820 

CP 

78H 

4AB1 

07 

03830 

INC 

HL 

4AB2 

A -«J 

03840 

INC 

HL 

4AB3 

2802 

03850 

JR 

Z, Ml 

4AB5 

AF 

03860 

XOR 

A 

4AB6 

C9 

03870 

RET 


4AB7 

A7 

03880 NI 

AND 

A 

4AB8 

C9 

03890 

RET 




03900 

• 

ft 


4AB9 

CDBC4A 

03910 CRCR 

CALL 

CR1 

4ABC 

3E0D 

03920 CR1 

LD 

A, CR 

4ABE 

C328F4 

03930 

JP 

OUTCH 



03940 

■ 


4AC1 

F5 

03950 MZUS 

PUSH 

AF 

4AC2 

7C 

03960 

LD 

A, H 

4AC3 

A7 

03970 

AND 

A 

4AC4 

3297F5 

03980 

LD 

(MZ),A 

4AC7 

2008 

03990 

JR 

NZ,MZI 

4AC9 

7D 

04000 

LD 

A, L 

4ACA 

FEOA 

04010 

CP 

10 

4ACC 

3803 

04020 

JR 

C.MZl 

4ACE 

3297F5 

04030 

LD 

(MZ),A 

4AD1 

Fl 

04040 MZi 

POP 

AF 

4AD2 

C9 

04050 

RET 




04060 

* 

* 




04070 

; Automatik (E 



04080 

* 

4 


4AB3 

3A90F5 

04090 AUTOM 

LD 

A,(BF) 

4AD6 

EEFF 

04100 

XOR 

.255 . 

4AB8 

3290F5 

04110 

LD 

(BF),A 

4ADB 

3AD1F4 

04120 

LD 

A,(BA) 

4ADE 

EE61 

04130 

XOR 

; 

4AE0 

32D1F4 

04140 

LD 

(BA),A 

4AE3 

C30048 

04150 

JP 

START 



04160 

B 




04170 

; Drucker (Ein 



04180 

« 

9 


4AE6 

3A92F5 

04190 DREA 

LD 

A, (DF) 

4AE9 

EEFF 

04200 

XOR 

255 

4AEB 

3292F5 

04210 

LD 

(DF),A 

4AEE 

3AD3F4 

04220 

LD 

A,(DA) 

4AF1 

EE64 

04230 

XOR 

’d* ; 

4AF3 

32D3F4 

04240 

LD 

(DA),A 

4AF6 

C30048 

04250 

JP 

START 



04260 

a 

* 




04270 

; Schreiben 



04280 

b 


4AF9 

21FEF4 

04290 SCHREI 

LD 

HL,TEX 


* * * . JV* 


XOR ? A’ 


XOR 9 D' 
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4AFC 

11A752 

04300 

LD 

4AFF 

0617 

04310 

LD 

4B01 

CD8351 

04320 

CALL 

4B04 

EB 

04330 

EX 

4B05 

21C952 

04340 

LD 

4 BOB 

0600 

04350 

LD 

4 BOA 

CD2ÖCE 

04360 

CALL 

4B0D 

C28752 

04370 

JP 

4B10 

2109F5 

04380 S001 

LD 

4B13 

11C952 

04390 

LD 

4B16 

0601 

04400 

LD 

4B18 

CD835I 

04410 

CALL 

4B1B 

7E 

04420 

LD 

4B1C 

E6DF 

04430 

AND 

4B1E 

FE4E 

04440 

CP 

4B20 

2822 

04450 

JR 

4B22 

FE4A 

04460 *, 

CP 

4B24 

20EA 

04470 

JR 

4B26 

2115F5 

04480 

LD 

4B29 

11C952 

04490 

LD 

4B2C 

0604 

04500 

LD 

4B2E 

CD3351 

04510 

CALL 

4B31 

7E 

04520. 

LD 

4B32 

FEOD 

04530 

CP 

4B34 

110060 

04540 

LD 

4B37 

2806 

04550 

JR 

4B39 

110000 

04560 

LD 

4B3C 

CDFE34 

04570 

CALL 

4B3F 

ED539BF5 

04580 5003 

LD 

4B43 

AF 

04590 

XÜR 

4B44 

329AF5 

04600 5002 

LD 

4B47 

2123F5 

04610 

LD 

4B4A 

CD00F4 

04620 

CALL 

4B4D 

3A97F5 

04630 

LD 

4B50 

A7 

04640 

AND 

4B51 

21785B 

04650 

LD 

4B54 

282A 

04660 

JR 

4B56 

2A98F5 

04670 

LD 

4B59 

ES 

04680 

PUSH 

4B5A 

11F15B 

04690 

LD 

4B5D 

OE 3 2 

04700 

LD 

4B5F 

7E 

04710 S02 

LD 

4B60 

FE78 

04720 

CP 

4B62 

281B 

04730 

JR 

4B64 

FE3C 

04740 

CP 

4B66 

TT 

04750 

INC 

4B67 

20F6 

04760 

JR 

4B69 

46 

04770 

LD 

4B6A 

23 

04780 

INC 

4B6B 

23 

04790 

INC 

4B6C 

23 

04800 

INC 

4B6D 

1A 

04810 SO3 

LD 

4B6E 

AE 

04820 

XOR 

4B6F 

77 

04830 

LD 

4B7Ö 

13 

04840 

INC 

4B71 

23 

04850 

INC 

4B72 

OD 

04860 

DEC 

4B73 

2005 

04870 

JR 

4B75 

OE 32 

04880 

LD 

4B77 

11F15B 

04890 

LD 


DE,FCB 
B,23 
INPIJT 
DE, HL 
HL,DBUF 
B, 0 
IN IT 

HZ,DERROR 
HL,TEXT5B 
DE,DBUF 

b, i. 

INPUT 

A, (HL) 

ODFH 

’ M' 

Z,S002 

J' ■ - ■ • ■■ ‘ 

NZ,S001 
HL,TEXT5A 
DE,DBUF 

B, 4 
INPUT 
A,(HL) 

CR 

DE,6000H 
Z,S003 
DE, 0 
34FEH 

(VERADFO , DE 
A 

(VF),A 
HL,TEXT? 

PRINT 
A,(M2) 

A 

n ^ f H* r , i X * 1***' * W 

HL,BUFFER 
Z,S01 

HL,(ENDSYS) 

HL 

DE,BUFFER+79H 

C, 50 

A, (HL) 

78H 

Z,SG5 

3CH 

HL 

NZ,S02 

B, (HL) 

HL 

HL 

HL 

A,(DE) 

(HL) 

(HL),A 
DE 
HL 
C 

NZ,S04 

C, 50 

DE,BUFFER+79H 
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4B7A 

10F1 

04900 S04 

DJNZ 

503 

4B7C 

23 

04910 

INC 

HL 

4B7D 

18E0 

04920 

JR 

S02 

4B7F 

Ei 

04930 SOS 

POP 

HL 

4B80 

ED4B9BF5 

04940 SOI 

LD 

BC,(VERADR) 

4B84 

ED43B44C 

04950 

LD 

WERAD2+1) ,BC 

4688 

liOOOO 

04960 

LD 

DE, 0 

4B8B 

ED539DF5 

04970 

LD 

(AE),DE 

4B8F 

11CF4C 

04980 

LD 

DE,BTAB 

4B92 

7E 

04990 S1 

LD 

A, (HL) 

4B93 

FE3C 

05000 

CP 

3CH 

4B95 

23 

05010 

INC 

HL 

4B96 

20FA 

05020 

JR 

NZ, St 

4B98 

3E01 

05030 

LD 

A, 1 

4B9A 

CD7E52 

05040 

CALL 

WRB 

4B9D 

7E 

05050 

LD 

A,(HL) 

4B9E 

F5 

05060 

PUSH 

AF 

4B9F 

C602 

05070 

ADD 

A, 2 

4BA1 

CD7E52 

05080 

CALL 

WRB 

4BA4 

07 

05090 

INC 

HL 

4BA5 

3A9AF5 

05100 

LD 

A, (VF) 

4BA8 

A7 

05110 

AND 

A 

4BA9 

281B 

05120 

JR 

"'z,S004 

4BAB 

4E 

05130 

LD 

C,(HL) 

4BAC 

23 

05140 

INC 

HL 

4BAD 

46 

05150 

LD 

B, (HL) 

4BAE 

2B 

05160 

DEC 

HL 

4BAF 

E5 

05170 

PUSH 

HL 

4BBÖ 

21E241 

05180 

LD 

HL,41E2H 

4BB3 

ED42 

05190 

SBC 

HL, BC 

4BB5 

El 

05200 

POP 

HL 

4BB6 

20 OE 

05210 

JR 

NZ,S004 

4BB8 

E5 

05220 

PUSH 

HL 

4BB9 

23 

05230 

INC 

HL 

4BBA 

23 

05240 

INC 

HL 

4BBB 

23 

05250 

INC 

HL 

4 BBC 

C5 

05260 

PUSH 

BC 

4BBD 

4E 

05270 

LD 

C,(HL) 

4BBE 

23 

05280 

INC 

HL. 

4BBF 

46 

05290 

LD 

B,(HL) 

4BC0 

ED439DF5 

05300 ' " 

LD 

(AEKBC 

4BC4 

CI 

05310 

POP 

BC 

4BC5 

El 

05320 

POP 

HL 

4BC6 

79 

05330 S004 

LD 

A, C 

4BC7 

CD7E52 

05340 

CALL 

WRB 

4BCA 

78 

05350 

LD 

A, B 

4BCB 

CD7E52 

05360 

CALL 

WRB 

4BCE 

ES 

05370 

PUSH 

HL 

4BCF 

D5 

05380 

PUSH 

DE 

4BD0 

216F4D 

05390 

LD 

HL,BL0CK1 

4BD3 

A7 

05400 

AND 

A 

4BD4 

ED52 

05410 

SBC 

HL, DE 

4BD6 

2812 

05420 

JR 

Z.SIU 

4BD8 

110401 

05430 

LD 

DE,260 

4BDB 

A7 

05440 

AND 

A 

4BDC 

ED5A 

05450 

ADC 

HL, DE 

4BDE 

280A 

05460 

JR 

Z,SU1 

4 BEO 

A7 

05470 

AND 

A 

4BE1 

ED SA 

05480 

ADC 

HL, DE 

4BE3 

2805 

05490 

JR 

Z,S1U 




"i 3Ki~, * 'i 


1 


1 
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4 BES A7 

05500 

AMD 

A 

4BE6 ED5A 

05510 

ADC 

HL, DE 

4BES 2006 

05520 

JR 

NZ,S11 

4BEA Dl 

05530 Sill 

POP 

DE 

4 BEB 13 

05540 

INC 

DE 

4BEC 13 

05550 

INC 

DE 

4 BEI) 13 

05560 

INC 

DE 

4BEE 13 

05570 

INC 

DE 

4BEF* D5 

05580 

PUSH 

DE 

4BF0 Dl 

05590 311 

POP 

DE 

4BF1 El 

05600 

POP 

HL 

4BF2 7E 

05610 

LD 

A,(HL) 

4BF3 12 

05620 

LD 

(DE),A 

4BF4 23 

05630 

INC 

HL 

4BFS 13 

05640 

INC 

DE 

4BF6 7E 

05650 

LD 

A,(HL) 

4BF7 12 

05660 - ■'■■■■’ ■ 

LD - 

■ -■ (DE) , A 

4BF8 23 

05670 

INC 

HL 

4BF9 13 

05660 

INC 

DE 

4BFA Fl 

05690 

POP 

AF 

4BFB 12 

05700 

LD 

(DEi, A 

4BFC F5 

05710 

PUSH 

AF 

4BFD FE01 

05720 

CP 

1 

4BFF 3E00 

05730 

LD 

A,ü 

4C01 3F 

05740 

ADC 

A, A 

4C02 13 

05750 

INC 

DE 

4C03 12 

05760 

LD 

(DF),A 

4C04 13 

05770 

INC 

DE 

4C05 Fl 

05780 

FÜR 

AF 

4C06 D5 

05790 

PUSH 

DE 

4C07 57 

05800 

LD 

D, A 

4C0B 7E 

05810 S2 

LD 

A,(HL) 

4CO9 CD7E52 

05S20 

CALL 

WRB 

4C0C 23 

05830 

INC 

HL 

4C0D 03 

05840.«.., • 

INC 

BC • . . ■ - 

4CÖE 15 

05850 

DEC 

D 

4C0F 20F7 

05860 

JR 

NZ, 52 

4CU 23 

05870 

INC 

HL 

4C12 Dl 

05880 

POP 

DE 

4C13 7E 

05890 

LD 

A,(HL) 

4C14 FE7B 

05900 

CP 

78H 

4C16 C2924B 

05910 

JP 

NZ,S1 

4C19 AF 

05920 

XOR 

A 

4C1A 13 

05930 

INC 

DE 

4C1B 13 

05940 

INC 

DE 

4C1C 12 

05950 

LD 

(DE),A 

4C1D 13 

05960 

INC 

DE 

4C1E 12 

05970 

LD 

(DE),A 

4C1F 23 

05980 

INC 

HL 

4C20 7E 

05990 

LD 

A, (HL) 

4C21 32CD4C 

06000 

LD 

(ENTRY+1), A 

4C24 23 

06010 

INC 

HL 

4C25 7E 

06020 

LD 

A, (HL) 

4C26 32CE4C 

06030 

LD 

(ENTRY+2),A 

4C29 ED437B4C 

06040 

LD 

(FBLOCK),BC 

4C2D ED43S151 

06050 

LD 

(FENTRY),BC 

4C31 21F200 

06060 

LD 

HL, FBL. 1--FBL0CK-4 

4C34 09 

06070 

ADD 

HL, BC 

4C35 22714D 

06080 

LD 

(FBL1),HL 

4C38 24 

06090 

INC 

H 


t 




'.#* ** - : * n* v 
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4C39 

22754E 

06100 

LD 

4C3C 

24 

06110 

INC 

4C3D 

22794F 

06120 

LD 

4C40 

24 

06130 

INC 

4C41 

227D50 

06140 

LD 



06150 

• 

Ji 

4C44 

21794C 

06160 

LD 

4C47 

Ö10A05 

06170 

LD 

4C4A 

3A9AF5 

06180 

LD 

4C4D 

A7 

06190 

AND 

4C4E 

2813 

06200 

3R 

4C50 

2A9DF5 

06210 

LD 

4C53 

7C 

06220 

LD 

4C54 

B5 

06230 

OR 

4C55 

2003 

06240 

JR 

4C57 

2ACD4C 

06250 

LD 

4C5A 

228151 

06260 S31 

LD 

4C5D 

217F51 

06270 

LD 

4C60 

010400 

06280 

LD 

4C63 

7E 

06290 S3 

LD 

AC64 

CD7E52 

06300 

CALL 

4C67 

dll. W 

06310 

INC 

4C68 

OB ‘ ’ ' 

06320 ''' 

DEC 

4C69 

78 

06330 

LD 

4C6A 

Bi 

06340 

OR 

4C6B 

20F6 

06350 

JR 

4C6D 

11A752 

06360 

LD 

4C7Ö 

CD28CE 

06370 

CALL 

4C73 

C28752 

06380 

JP 

4C76 

C3524A 

06390 

06400 ; 

JP 

4C79 

01 

06410 VERSCH 

DEFB 

4C7A 

F4 

06420 

DEFB 

4C7B 

oooo 

06430 FBLOCK 

DEFW 

4C7D 

F3 

06440 

DI 

4C7E 

21FBC9 

06450 

LD 

4C81 

221240 

06460 

LD 

4C84 

213E00 

06470 

LD 

4C87 

223340 

06480 

LD 

4C8A 

3EC9 

06490 

LD 

4C8C 

323540 

06500 ■ 

LD 

4C8F 

32E241 

06510 

LD 

4C92 

06 IC 

06520 

LD 

4C94 

215241 

06530 

LD 

4C97 

36C3 

06540 INITI 

LD 

4C99 

23 

06550 

INC 

4C9A 

363B 

06560 

LD 

4C9C 

23 

06570 

INC 

4C9D 

3601 

06580 

LD 

4C9F 


06590 

INC 

4CA0 

10F5 

06600 

DJNZ 

4CA2 

0615 

06610 

LD 

4CA4 

36C9 

06620 INIT2 

LD 

4CA6 

23 

06630 

INC 

4CA7 


06640 

INC 

4CA8 

07 

■wJ 

06650 

INC 

4CA9 

10F9 

06660 

DJNZ 

4CAB 

CD0B00 

06670 

CALL 

4CAE 

112100 

06680 HIER 

LD 

4CB1 

19 

06690 

ADD 


(FBL2),HL 
H 

(FBL3), Hl. 

H 

(FBL4),HL 
HL,VERSCH 

BC,FENTRY-VERSCH+2 
A,(VF) 

A 

Z, S3 
HL,(AE) 

A,H 

L 

NZ,531 

HL,(ENTRY+1) 

(FENTRY),HL 
HL,FENTRY-2 
BC, 4 
A,(HL) 

WRB 

HL 

BC ■ *' 1 ’ -*- J " *'* - ’ 1 ■ ■- • ■ 

A,B 

C 

NZ, S3 
BE,FCB 
CLOSE 
NZ,DERRÖR 
WSTART 

1 

FBLi-VERSCH-4 

0 

HL,0C9FBH 
(4012H),HL 
HL,3EH 
(4033H),HL 

A, 0C9H 

■ (4uo.5H), A 1 -■ ■ ■ fc.ti ■ 

(41E2H),A 

B, ICH 
HL,4152H 
(HL),0C3H 
HL 

(HL),3BH 
HL 

(HL) , 1 
HL 

INIT1 

B, 15H 

(HL),0C9H 

HL 

HL 

HL 

INIT2 

OBH 

DE,BTAB-HIER 
HL, DE 
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4CB2 E5 

06700 

PUSH 

HL 


4CB3 210000 

06710 VERAD2 

LD 

HL«0 


4CB6 E3 

06720 VL 

EX 

(SP),HL 

h 

4CB7 5E ' 

06730 

LD 

E,(HL) 


4CB8 23 

06740 

INC 

HL 


4CB? 56 

06750 

LD 

D,(HL) 


4CBA 23 

06760 

INC 

HL ; 


4CBB 4E 

06770 

LD 

C, (HU 


4CBC 23 

06780 

INC 

HL 


4CBD 46 

06790 

LD 

B,(HL) 


4CBE 23 

06800 

INC 

HL 


4CBF 79 

06810 

LD 

A,C 


4CC0 BO 

06820 

OR 

B 


4CC1 2805 

06830 

JR 

Z, VS2 


4CC3 E3 

06840 

EX 

(SP),HL 


4CC4 EDBO 

06850 

LDIR 




4CC6 

1SEE 

06860 


JR 

VL- -. - 

‘ ft "iV* i «O . < * ’V, VCS* - -f r H * v < 

4CC8 

El 

06870 

VS2 

POP 

HL 


4CC9 

CDE241 

06880 


CALL 

41E2H 


4CCC 

C30000 

06890 

ENTRY 

3P 

f\ 


4CCF 


06900 

BTAB 

EOU 

$ 


4D6F 


06910 


ORG 

$+160 


4D6F 

01 

06920 

BLOCK1 

DEFB 

1 


4D70 

02 

06930 


DEFB 



4D71 

0000 

06940 

FBL1 

DEFW 

0 


4D73 


06950 

BTAB1 

EQU 

$ 


4E73 


06960 


ORG 

$+256 


4E73 

01 

06970 

BL0CK2 

DEFB 

1 


4E74 

02 

06980 


DEFB 



4E75 

0000 

06990 

FBL2 

DEFW 

0 


4E77 


07000 

BTAB2 

EQU 

$ 


4F77 


07010 


ORG 

$+256 


4F77 

01 

07020 

BL0CK3 

DEFB 

1 


4F78 

02 

07030 


DEFB 

*1* 


.... , • - 4F79 

0000 

07040 

FBL3 

DEFW 

0 

^ , ' " - ?L \ J*" V ' 1 ^ ‘ W * -V r * H " ,TK 

4F7B 


07050 

BTAB3 

EQU 

$ 


507B 


07060 


ORG 

$+256 


507B 

01 

07070 

BL0CK4 

DEFB 

1 


507C 

02 

07080 


DEFB 



507D 

0000 

07090 

FBL4 

DEFW 

0 


507F 


07100 

BTAB4 

EQU 

$ 


517F 


07110 


ORG 

$+256 


517F 

02 

07120 


DEFB 

2 


5180 

02 

07130 


DEFB 



5181 

0000 

07140 

FENTRY 

DEFW 

0 




07150 


t 

9 



5183 

CD0ÖF4 

07160 

INPUT 

CALL 

PRINT 


5186 

2169F5 

07170 


LD 

HL,TEXT16 


5189 

CDOOF4 

07180 


CALL 

PRINT 


518C 

EB 

07190 


EX 

DE, HL 


518D 

CDD905 

07200 


CALL 

05D9H 


5190 

C3BC4A 

07210 


JP 

CR1 




07220 


* 

* 





07230 


; Vergleichen 




07240 


* 



5193 

21E8F4 

07250 

VERGLE 

LD 

HL,TEXT2 


5196 

CDOOF4 

07260 


CALL 

PRINT 


5199 

CDEB51 

07270 


CALL 

WA IT 


519C 

2128F5 

07280 


LD 

HL,TEXT8 


519F 

CD00F4 

07290 


CALL 

PRINT 
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51A2 

260F 

07300 

LD 

H, READV-READY--2 

51 A4 

2E18 

07310 

LD 

L, 18H 

51A6 

22CS51 

07320 

L.D 

(READY),HL 

51A9 

ED5B85F5 

07330 

LD 

DE,(FLEN) 

51 AD 

C36248 

07340 

JP 

LAD 



07350 

■ 


51 BO 

215CF5 

07360 VI 

LD 

HL,TEXT15 

51B3 

FD222040 

07370 V4 

LD 

(4020H),IY 

51B7 

E5 

07380 

PUSH 

HL 

51B8 

CDB94A 

07390 

CALL 

CRCR 

51BB 

El 

07400 

POP 

HL 

51BC 

CDOOF4 

07410 

CALL 

PRINT 

51BF 

Dl 

07420 V2 

PQP 

DE 

5 ICO 

C3524A 

07430 

JP 

WSTART 



07440 

• 

* 




07450 

; Fehler 



07460 

* 

* 


51C3 

2161F5 

07470 V3 

LD 

HL,TEXT5 

51C6 

18EB 

07480 

JR 

V4 



07490 

07500 ; 

■ 




07510 ; 

Unterprogramme für Lesen 



07520 ; 



51C8 

IC 

07530 READY 

INC 

E 

51C9 

CBFB 

07540 

SET 

7, E 

51CB 

CDF951 

07550 

CALL 

READB 

51 CE 

2804 

07560 

JR 

Z,REND 

5 IDO 

23 

07570 

INC 

HL 

51D1 

77 

07580 

LD 

(HL),A 

51D2 

12 

07590 

LD 

(DE),A 

51D3 

DO 

07600 

RET 

NC 

51D4 

CI 

07610 REND 

POP 

BC 

51D5 

23 

07620 

INC 

HL 

51D6 

C3FC48 

07630 

07640 ; 

JP 

L22 

51D9 

1B 

07650 READV 

DEC 

DE 

5 IDA 

7A 

07660 

LD 

A, D 

51DB 

B3 

07670 

OR 

E 

51DC 

28D2 

07680 

JR 

Z,V1 

5 IDE 

CDF951 

07690 

CALL 

READB 

51E1 

23 

07700 

INC 

HL 

51E2 

28DB 

07710 

JR 

Z,V2 

51E4 

38D9 

07720 

JR 

C,V2 

51E6 

BE 

07730 

CP 

(HL) 

51E7 

C8 

07740 

RET 

Z 

51E8 

C3C351 

07750 

JP 

V3 



07760 

• 




07770 

; Unterprogramme 



07780 

? 


SIEB 

212DF5 

07790 WAIT 

LD 

HL,TEXTO 

S1EE 

CDOOF4 

07800 

CALL 

PRINT 

51F1 

CD2B00 

07810 W1 

CALL 

INCH 

51F4 

FEOD 

07820 

CP 

CR 

51F6 

20F9 

07830 

JR 

NZ,W1 

51F8 

C9 

07840 

RET 




07850 

* 

t 


51F9 

D9 

07860 READB 

EXX 


51FA 

0608 

07870 

LD 

B, 8 

51FC 

1600 

07880 

LD 

D, Ö 

51FE 

CD1652 

07890 RB1 

CALL 

READBI 
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5201 3606 

07900 

JR 

C, RB2 

5203 10F9 

07910 

DJNZ 

RB1 

5205 04 

07920 

INC 

B 

5206 7A 

07930 RB3 

LD 

A,D 

5207 D9 

07940 

EXX 


5208 C9 

07950 

RET 



07960 

A 


5209 78 

07970 RB2 

LD 

A, B 

520A FE08 

07980 

CP 

8 

520C 28F8 

07990 

JR 

Z, RB3 

520E CE22 

08000 RB4 

SLA 

D 

5210 10FC 

08010 

DJNZ 

F;B4 

5212 37 

08020 

SCF 


5213 04 

03030 

INC 

B 

5214 18F0 

08040 

JR 

RB3 


08050 

■ 

t 


5216 C5 

03060 READBI 

RUSH 

BC 

5217 DBFF 

08070 

IN 

A, (OFFH) 

5219 E601 

08080 

AND 

01 

521B 5F 

08090 

LD 

E, A 

52IC 0E00 

08100 

LD 

C,0 

52IE OB 

08110 RI 

DEC 

C 

521F 280B 

08120 

JR 

Z,RBI1 

5221 BBFF 

08130 

IN 

A,(OFFH) 

5223 E601 

08140 

AND 

01 

5225 AB 

08150 

XOR 

E 

5226 1F 

03160 

RRA 


5227 30F5 

08170 

JR 

NC, RI 

5229 C30802 

08180 

JP 

G2Ü8H 

522C 3A90F5 

08190 RBIi 

LD 

A,(BF) 

522F A7 

08200 

AND 

A 

5230 2807 

03210 

JR 

Z,RBI2 

5232 3A40F8 

08220 

LD 

A, (0FS40H) 

5235 CB57 

08230 

BIT 

2, A 

5237 28E5 

08240 

JR 

7, RI r_ : . 

5239 CI 

08250 RBI2 

POP 

BC 

523A 37 

08260 

SCF 


523B C9 

08270 

RET 



08280 

* 


523C 3A90F5 

08290 READS 

LD 

A,(BF) 

523F 3291F5 

08300 

LD 

(BFS),A 

5242 3E01 

08310 

LD 

A,1 

5244 3290F5 

08320 

LD 

(BF),A 

5247 E5 

08330 

PUSH 

HL 

5248 D5 

08340 

PUSH 

DE 

5249 C5 

08350 

PUSH 

BC 

524A 3E05 

08360 

LD 

A, 5 

524C 3226F0 

08370 

LD 

(0F026H),A 

524F 3227F0 

08380 

LD 

(0F027H),A 

5252 01AA80 

08390 RSl 

LD 

BC, 08ÖAAH 

5255 CD1652 

08400 RS2 

CALL 

READBI 

5258 381A 

08410 

JR 

C, RS3 

525A B9 

08420 

CP 

C 

525B 20F5 

08430 

JR 

NZ,RSl 

525D 3EFF 

08440 

LD 

A, 255 

525F A9 

08450 

XOR 

C 

5260 4F 

08460 

LD 

C.A 

5261 10F2 

08470 

DJNZ 

RS2 

5263 CD1652 

08480 RS4 

CALL 

READBI 

5266 380C 

08490 

JR 

C, RS3 


■ * ä?;v**V * j < f 
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5268 

FE66 

08500 

CP 

526A 

20F7 

08510 

JR 

526C 

3E2A 

08520 

LD 

526E 

322644 

08530 

LD 

5271 

322744 

08540 

LD 

5274 

CI 

08550 RS3 

PÜP 

5275 

Dl 

08560 

PÜP 

5276 

El 

08570 

POP 

5277 

3A91F5 

08580 

LD 

527A 

3290F5 

08590 

LD 

527D 

C9 

08600 

RET 



08610 

; 

CE20 


08620 INIT 

EOU 

CE28 


08630 CLOSE 
08640 ; 

EQU 

527E 

D5 

08650 WRB 

PUSH 

527F 

11A752 

08660 

LD 

5282 

CD1B00 

08670 

CALL 

5285 

Dl 

08680 

POP 

5286 

CS 

08690 

RET 



08700 

* 

J 

5287 

0600 

08710 DERRGR 

LD 

5289 

04 

08720 DE1 

INC 

528A 

D60A 

08730 

SUB 

528C 

30FB 

08740 

JR 

528E 

05 

08750 

DEC 

528F 

C60A 

08760 

ADD 

5291 

F5 

08770 

PUSH 

5292 

78 

08780 

LD 

5293 

C630 

08790 

ADD 

5295 

CD28F4 

08800 

CALL 

5298 

Fl 

08810 

POP 

5299 

C630 

08820 

ADD 

529B 

CD28F4 

08830 

CALL 

529E 

216DF5 

08840 

LD 

52A1 

CDÖ0F4 

08850 

CALL 

52A4 

C3524A 

08860 

JP 



08870 

08880 ; 

; 

52A7 


08890 FCB 
08900 ; 

EQU 

52C9 


08910 DBUF 
08920 ; 

EQU 

5B78 


08930 BUFFER 
08940 ; 

EQU 

F400 


08950 

ORG 



08960 

• 

% 

F400 

7E 

08970 PRINT 

LD 

F401 

A7 

08980 

AND 

F402 

23 

08990 

INC 

F403 

2809 

09000 

JR 

F405 

FEFF 

09010 

CP 

F407 

2812 

09020 

JR 

F409 

CD28F4 

09030 

CALL 

F40C 

18F2 

09040 

JR 



09050 

* 

F40E 

D5 

09060 PR2 

PUSH 

F40F 

CD2B00 

09070 

CALL 

F412 

FE 60 

09080 

CP 

F4L4 

CC2B00 

09090 PR1 

CALL 


66H 

NZ,PS4 
A, J 

(4426H),A 

(4427H),A 

BC 

DE 

HL 

A,(BFS) 
(BF),A 


0CE20H 

0CE26H 

DE 

DE,FCB 
1BH 
DE 
Z 

B, 0 

ß f ' ■ ‘ I ' 1* 1 '*» * , . ' 1,/V 

10 

NC,DE1 
B 

A, 10 
AF 
A, B 
A, ’C’ 

ÜUTCH 

AF 

A, ? 0* 

OUTCH 
HL,TEXT17 
PRINT 
WSTART 


$ 

$+34 

5B7SH 

ÖF400H 

A,(HL) 
A 

HL 

Z, PR2 
255 
Z, PR3 
OUTCH 
PRINT 

DE 

INCH 
6 OH 

Z,INCH 
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F417 

28FB 

09100 

JR 

Z, PR 1 

F419 

Dl 

09110 

POP 

DE 

F41A 

C9 

09120 

RET 




09130 

■ 

H 


F41B 

C5 

09140 PR3 

PUSH 

BC 

F41C 

46 

09150 

LD 

B,(HL) 

F41D 


09160 

INC 

HL 

f4ie: 

7E 

09170 PR4 

LD 

A,(HL) 

F41F 

CD28F4 

091 SO 

CALL 

OUTCH 

F422 

10FA 

09190 

DJNZ 

PR4 

F424 


09200 

INC 

HL 

F425 

Cl 

09210 

POP 

BC 

F426 

18DS 

09220 

JR 

PRINT 



09230 

; 


002B 


09240 INCH 

EQU 

002BH 



09250 

ji 


F428 

D5 

09260 DUTCH 

PUSH 

DE 

F429 

F5 

09270 

PUSH 

AF 

F42A 

CD3300 

09280 

CALL 

33H 

F42D 

Fl 

09290 

POP 

AF 

F42E 

57 

09300 

LD 

D, A 

F42F 

3A93F5 

09310 

LD 

A,(DFLAG) 

F432 

A7 

09320 

AND 

A 

F433 

7A 

09330 

LD 

A,D 

F434 

C43B00 

09340 

CALL 

NZ,3BH 

F437 

Dl 

09350 

POP 

DE 

F438 

C9 

09360 

RET 




09370 

• 

f 




09380 

* 


F439 

7C 

09390 PRH 

LD 

A, H 

F43A 

CD3EF4 

09400 

CALL 

PRBYTE 

F43D 

7D 

09410 

LD 

A.L 

F43E 

F5 

09420 PRBYTE 

PUSH 

AF 

F43F 

0F 

09430 

RRCA 


F440 

0F 

09440 

RRCA 


F441 

0F 

09450 ' 

RRCA 


F442 

0F 

09460 

RRCA 


F443 

CD47F4 

09470 

CALL 

PRNIB 

F446 

Fl 

09480 

POP 

AF 

F447 

E60F 

09490 PRNIB 

AND 

OFH 

F449 

FEOA 

09500 

CP 

10 

F44B 

3802 

09510 

JR 

C, PN 1 

F44D 

C607 

09520 

ADD 

A, > A'-’9’-l 

F44F 

C630 

09530 PNI 

ADD 

A, ’ 0’ 

F451 

C328F4 

09540 

JP 

OUTCH 



09550 

* 

$ 


F454 

CD39F4 

09560 PRHEX 

CALL 

PRH 

F457 

3E48 

09570 

LD 

A, 7 H ’ 

F459 

C328F4 

09580 

JP 

OUTCH 



09590 

• 

4 


F45C 

2A89F5 

09600 PRBL 

LD 

HL,(LSTREC) 

F45F 

7D 

09610 

LD 

A,L 

F460 

B4 

09620 

OR 

H 

F461 

C8 

09630 

RET 

Z 

F462 

D5 

09640 

PUSH 

DE 

F463 

213DF5 

09650 

LD 

HL,TEXT11 

F466 

CDOOF4 

09660 

CALL 

PRINT 

F469 

2A87F5 

09670 

LD 

HL,(LSTRAG) 

F46C 

E5 

09680 

PUSH 

HL 

F46D 

CD54F4 

09690 

CALL 

PRHEX 
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F47G 3E2D 

09700 

LD 

A, ' - 

F472 CD28F4 

09710 

CALL 

OUTCH 

F475 2A89F5 

09720 

LD 

HL,(LSTREC) 

F478 CD54F4 

09730 

CALL 

PRHEX 

F47B Dl 

09740 

POP 

DE 

F47C A7 

09750 

AND 

A 

F47D ED52 

09760 

SBC 

HL, DE 

F47F Dl 

09770 

POP 

DE' 

F480 7C 

09780 

LD 

A, H 

F481 A7 

09790 

AND 

A 

F482 CO 

09800 

RET 

NZ 

F483 7D 

09810 

LD 

A, L 

F484 FE03 

09820 

CP 


F486 DO 

09830 

RET 

NC 

F487 C5 

09840 

PUSH 

BC 

F488 45 

09850 

LD 

B,L 

F489 04 

09860 

INC 

B 

F4SA 2181F5 

09870 

LD 

HL,TEXT20 

F48D CD00F4 

09880 

CALL 

PRINT 

F490 2A8DF5 

09890 

LD 

HL, (L.STAD1) 

F493 7E 

09900 PRBL1 

LD 

A,(HL) 

F494 CD3EF4 

09910 

CALL 

PRBYTE 

F497 3E4S 

09920 

U>. 

A,'H’- 

F499 CD2BF4 

09930 

CALL 

OUTCH 

F49C 3E20 

09940 

LD 

A, ’ ? 

F49E CD2SF4 

09950 

CALL 

OUTCH 

F4A1 23 

09960 

INC 

HL 

F4A2 10EF 

09970 

DJNZ 

PRBL1 

F4A4 Ci 

09980 

POP 

BC 

F4A5 C9 

09990 

RET 



10000 

• 

t 



10010 

m 

$ 



10020 

m 

* 


F4A6 EB 

10030 ENDEI 

EX 

DE, HL 

F4A7 CDACF4 

10040 

CALL 

ENDE 

F4AA EB 

10050 

EX 

DE, HL 

F4AB C9 

10060 

RET 



10070 

* 


F4AC E5 

10080 ENDE 

PUSH 

HL 

F4AD D5 

10090 

PUSH 

DE 

F4AE 21785B 

10100 

' ‘I , H 

JJ> _ 

HL,BUFFER 

F4BI ED5B85F5 

10110 

LD 

DE,(FLEN) 

F4B5 19 

10120 

ADD 

HL, DE 

F4B6 37 

10130 

SCF 


F4B7 Dl 

10140 

POP 

DE 

F4B8 ED52 

10150 

SBC 

HL, DE 

F4BA El 

10160 

POP 

HL 

F4BB DO 

10170 

RET 

NC 

F4BC Dl 

10180 

POP 

DE 

F4BD 2176F5 

10190 

LD 

HL,TEXT19 

F4C0 CDÖ0F4 

10200 

CALL 

PRINT 

F4C3 C34E4A 

10210 

JP 

LI 10 


10220 

* 

$ 



10230 

* 

J 



10240 

; Texte 



10250 

■ 

■r 


F4C6 IC 

10260 TEXTI 

DEFB 

ICH 

F4C7 1F 

10270 

DEFB 

1FH 

F4C8 53 

10280 

DEFM 

' SAVETAPE ’ 

F4D1 41 

10290 BA 

DEFM 

'A ’ 
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F4D3 

20 

10300 DA 

DEFM 


F4D5 

3C 

10310 

BEFM 

’<L, F, S, A, 

F4E7 

00 

10320 

BEFB 

0 

F4E6 

IC 

10330 TEXT2 

DEFB 

ICH 

F4E9 

1F 

10340 

BEFB 

1FH 

F4EA 

57 

10350 

DEFM 

’Wiederqabe’ 

F4F4 

OB 

10360 

DEFB 

CF: 

F4F5 

00 

10370 

DEFB 

0 

F4F6 

0D 

10380 TEXT3 

DEFB 

CR 

F4F7 

4C 

10390 

DEFM 

•' Laenge’ 

F4FD 

00 

10400 

DEFB 

0 

F4FE 

IC 

10410 TEXT4 

DEFB 

ICH 

F4FF 

1F 

10420 

DEFB 

1FH 

F500 

46 

10430 

DEFM 

J Fi 1ename’ 

F508 

00 

10440 

DEFB 

0 

F509 

56 

10450 TEXT5B 

DEFM 

’ Verschieben"' 

F514 

00 

10460 

DEFB 

0 

F515 

4E 

10470 TEXT5A 

DEFM 

J Neue Adr ? 

F51D 

00 

10480 

DEFB 

0 

F51E 

4C 

10490 TEXT6 

DEFM 

'L. . ’ 

F521 

0D 

10500 TEXT6A 

DEFB 

CR 

F522 

00 

10510 

DEFB 

0 

F523 

53 

10520 TEXT7 

DEFM 

7 S.. > 

F526 

0D 

10530 

DEFB 

CR 

F527 

00 

10540 

DEFB 

0 

F528 

56 

10550 TEXT8 

DEFM 

7 V. . ’ 

F52B 

OB 

10560 

DEFB 

CR 

F52C 

00 

10570 

DEFB 

0 

F52D 

3C 

10580 TEXTO 

DEFM 

’ (ENTER>’ 

F534 

0D 

10590 

DEFB 

CR 

F535 

00 

10600 

DEFB 

0 

F536 

OD 

10610 TEXT10 

DEFB 

CR 

F537 

53 

10620 

DEFM 

J SYS: ’ 

F53C 

00 

10630 

DEFB 

ij 

F53D 

OB 

10640 TEXT 11 

DEFB 

CR 

F53E 

42 

10650 

DEFM 

’Blk: ’ 

F543 

00 

10660 

DEFB 

0 

F544 

OD 

10670 TEXT18 

DEFB 

CR 

F545 

7A 

10630 

DEFM 

’zus: ’ 

F54A 

00 

10690 

DEFB 

0 

F54B 

OD 

10700 TEXT12 

DEFB 

CR 

F54C 

45 

10710 

DEFM 

’ Ety: ’ 

F551 

00 

10720 

DEFB 

0 

F552 

3F 

10730 TEXT13 

DEFM 

’ O 1 

F555 

00 

10740 

DEFB 

0 

F556 

42 

10750 TEXT14 

DEFM 

5 BAS: ’ 

F55B 

00 

10760 

DEFB 

0 

F55C 

4B 

10770 TEXT15 

DEFM 

’ Kein ’ 

F561 

46 

10780 TEXT5 

DEFM 

J Fehler ? 

F567 

OD 

10790 

DEFB 

CR 

F568 

00 

10800 

DEFB 

0 

F569 

20 

10810 TEXT16 

DEFM 

r <y t 

F56C 

00 

10820 

DEFB 

0 

F56D 

20 

10830 TEXT17 

DEFM 

? Fehler’ 

F574 

OD 

10840 

DEFB 

CR 

F575 

00 

10850 

DEFB 

0 

F576 

OD 

10860 TEXT19 

DEFB 

CR 

F577 

7A 

10870 

DEFM 

’zu kurz.’ 

F57F 

OD 

10880 

DEFB 

CR 

F580 

00 

10890 

DEFB 

0 


vv 
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F581 

20 

10900 

TEXT20 

DEFM 

* . 1 

m 

F584 

00 

10910 


DEFB 

0 

F585 

0000 

10920 

FLEN 

BEFW 

0 

F587 

0000 

10*30 

LSTRAC 

DEFW 

0 

F589 

0000 

10940 

LSTREC 

DEFW 

0 

F58B 

0000 

10950 

L5TAD 

DEFW 

0 

F58D 

0000 

10960 

LSTAD1 

DEFW 

o 

F58F 

00 

10970 

CSF 

DEFB 

0 

F590 

00 

10980 

BF 

DEFB 

0 

F591 

00 

10990 

BFS 

DEFB 

0 

F592 

00 

11000 

BF 

DEFB 

0 

F5 q 3 

00 

11010 

DFLAG 

DEFB 

0 

F594 

00 

11020 

CF 

DEFB 

0 

F5 q 5 

00 

11030 

FTF 

DEFB 

0 

F596 

00 

11040 

AFF 

DEFB 

0 

F597 

00 

11050 

MZ 

DEFB 

0 

F598 

0000 

11060 

ENDSYS 

DEFW 

0 

F59A 

00 

11070 

VF 

DEFB 

0 

F59B 

0000 

11080 

VERADR 

DEFW 

o 

F59D 

0000 

11090 

AE 

DEFW 

0 



11100 


■ 


4800 


11110 


END 

START 


00000 TOTAL ERRGRS " ' ‘ 

19 q 96 TEXT AREA BYTES LEFT 


ff r y 


i *.* ' 
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6.4 Basicprogrammpacker PACK 124 

6.5 Feldaufzeichnung ARRAY 127 

6.6 Umlauterweiterung für SCRIPSIT 131 

6.7 Assembler/Disassembler 280AD 133 

6.8 Konvertierungsprogramme /SRC <-> /KAC 148 


Bitte beachten Sie» daß die Teile 1» 2, 3 und 5 ohne 
Einschränkung für das Colour-Genie geeignet sind. Von den 
Programmen aus Teil 4 ist nur DOUBLE unverändert auf dem 
Colour-Genie lauffähig. Der Assembler/Disassemb1er bedarf 
einer Anpassung, die anderen Programme sind in einer 
speziellen Colour-Genie-Version im vorliegenden Buch 
Assemb1ertricks entha1ten. 
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MIKROCOMPUTER 


LuidgeT Röckrath * Noppijsstraße 19 - 5100 Aachen 

Neuerscheinung : 
L. Röckrath: 

Das Maschinensprachebuch 


für TRS-80/Genie/Colour-Genie 
(149 S., DIN-A5, kartoniert, 

49 DM, ISBN 3-925074-07-4) 

Das Maschinensprachebuch ist 
unentbehrlich für jeden, der 
auf einem TRS-80/Genie oder 
Co1our-Genie Maschinenpro¬ 
gramme entwickelt. Es zeigt 
einfach und verständlich auf, 
wie eigene Maschinenprogramme 
durch Verwendung von 

ROM-Routinen effizient ge¬ 
schrieben werden können. 
Außerdem werden die Unter¬ 
schiede zwischen den ver¬ 
schiedenen Systeme erläutert. 
Zum Schluß folgen ausführlich 
dokumentierte Beispielpro¬ 
gramme und hilfreiche 

Utilities im Quellprogramm. 



Das Maschinenprogramm bietet unter anderem: ‘ '**'***' " '** 

- ausführliche Beschreibung von ca. 70 ROM-Routinen: 

- Einsprungadresse, Name, evtl. Unterschiede zwischen den Systemen 

- Registerbeeinflussung 

- Aufruf- und Ergebnisparameter 

- genaue und ausführliche Funktionsbeschreibung 

- 1 Beispiel für die Anwendung 

- genaue Beschreibung des Aufbaus des Basicprogrammtextes, 
der Variablentabelle, ... 

- Auflistung aller wichtigen RAM-Zellen, in denen Parameter 
für die ROM-Routinen übergeben werden müssen 

- Vergleich der ROM’s von TRS-80 Model I (alte/neue Version), TRS-80 
Model III, Genie I+II, Genie III, Genie IIIs, Colour-Genie 

- 5 ausführlich dokumentierte Sourcelistings von Beispielprogrammen: 
Durchschnitt eines Feldes, Codetabelle, POP-Anweisung, 
Zahlen-Ein-/Ausgabe und System-File-Aufzeichnung auf Kassette. 

- Sourcelistings und Beschreibungen zahlreicher Utilities, die Pro¬ 
grammiertechniken aufzeigen und sinnvoll eingesetzt werden können: 
komfortabler Bildschirmeditor SEDIT / Basicerweiterung NEWBAS / 
Erweiterung aller Funktionen auf doppelte Genauigkeit DOUBLE / 
Basicprogrammpacker PACK / Feldaufzeichnung ARRAY / 

Umlaut- und Druckersteuerungserweiterung für SCRIPSIT / 
Assembler/Disassembler/Editor/Monitor Z80AD 

(nicht alle Programme auf TRS-80-Model-III/Colour-Genie lauffähig.) 

- Erläuterung aller Methoden des Betriebssystemeingriffes 
mit Beispielen: Eingriff über RST-Vektoren, Disk-Basic- 
Vektoren, Treibervektoren im DCB, Befehlserweiterung 
durch Eingriff in die Interpretationsschleife. 







Luidger Röckrath: 


Assemblertricks auf dem Colour-Genie 


Dieses Buch zeigt alle Tricks auf, mit 
denen auf dem Coloui—Genie effektiv in 
Assembler programmiert werden kann* 

Damit wird der Zugriff vom Assemblerpro¬ 
gramm auf freiprogrammierbare Zeichen, 
hochauflösende Grafik, PSG, CRTC und Dis¬ 
kette spielend einfach. Durch eine genaue 
Beschreibung von vielen ROH-Routinen kön¬ 
nen schnell Maschinenprogramme hoher 
Leistungsfähigkeit geschrieben werden. 
Zahlreiche Beispiele (darunter eine Er¬ 
weiterung des Bildformates auf 30 Zeilen a 
50 Zeichen und ein Programm zum Lesen von 
disk-relativ adressierten Sektoren) zeigen 
Programmiertechniken und sinnvolle Anwen¬ 
dung der vorgestellten Routinen im Zusam¬ 
menhang auf . 

SchlieB1 ich folgen die Beschreibungen und 
3uellprogramme zahlreicher professionel1er 
Utilities, vom Bildschirmeditor SEDIT bis 
zu den beiden universellen KopierProgram¬ 
men COPBIT und SAVETAPE. 


IJßn 3-925074-08-2 






